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Prefacio 


¡La Astronomía, ciencia que estudia los cielos, y tu Spectrum están hechos la una 
para el otro! La excelente capacidad del Spectrum para trazar gráficos permite que 
cobren nueva vida temas que acumulaban la pátina del olvido, como las leyes de 
Kepler y Boder. 

Este libro resalta el aspecto visual del proceso de datos y de la Astronomía, lo que 
quizá no guste a determinados puristas, que sólo conciben esta ciencia a base de nú- 
meros con “*n-simas”” cifras decimales. Sin embargo, a los ordenadores les compete la 
comunicación y, así como el BASIC es un lenguaje informático aceptable, la presen- 
tación gráfica, sumada a los números, presta una ayuda importante a la rápida asimi- 
lación de hechos y conceptos. 

La obra no se dirige específicamente a los astrónomos, sino a aquellos propieta- 
rios de un Spectrum que deseen extender su interés por la informática a otros campos. 
He reducido al mínimo posible las explicaciones matemáticas o trigonométricas 
utilizadas en algunos de los programas, puesto que no se precisan dichos conocimien- 
tos para desarrollarlos: basta con escribirlos y hacer que el ordenador los ejecute. 
Asimismo, he explicado detalladamente la parte básica general de cada uno de los 
programas, cuando éstos lo requerían, y he añadido la información astronómica 
pertinente. 

Está muy extendida la opinión de que todo lo que acontece en el campo de la cien- 
cia es de nuestros días, y quizá pueda haber en ello algo de verdad, si se lo considera 
desde el punto de vista de que hoy son muchas las personas que se ocupan de la mar- 
cha de los acontecimientos. Pero la Astronomía tiene una larga historia y aún perma- 
necen en vigor leyes, fórmulas y cálculos concebidos hace siglos, antes, incluso, de 
que se inventara el telescopio. Piénsese, por ejemplo, en que la magnitud escalar de 
las estrellas, de Hiparco, tiene vigencia todavía (2.110 años después de que la formu- 
lara). No sólo es una ciencia antigua la Astronomía, ¡el cálculo es más antiguo de lo 
que podemos suponer! 

Somos prisioneros en esta isla maravillosa llamada Tierra —una minúscula par- 
tícula que navega en el Cosmos—. Esperemos que algunos de los programas que se 
incluyen en este libro seduzcan lo bastante al lector como para provocar el vuelo de su 
fantasía hacia otros mundos, ensanchando así su experiencia intelectual. 


Reconocimientos 


He de dar las gracias al doctor Peter Duffett-Smith, por la utilización de sus algo- 
ritmos en los dos programas de efemérides planetarias, y a James Weightman, quien 
escribió la mayor parte del programa de los satélites Jovianos para este libro, basado 
en un algoritmo de Jean Meeus. 


Todas las ilustraciones de este libro son del autor, a menos que se indique expresa- 
mente lo contrario. 
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Notas explicativas 


Las notas que van a continuación se incluyen como orientación para el usuario del 
Spectrum. 


Compatibilidad entre los Spectrum de 16K y 48K 


Los programas que contiene este libro pueden operar, sin modificación alguna 
(a excepción del programa titulado “Mapas estelares”” del capítulo 8), en el Spectrum 
de 16K, a pesar de que los escribí en mi Spectrum de 48K. El mencionado programa 
del capítulo 8 sólo se puede ejecutar en éste. La capacidad total de memoria necesaria 
para operar los otros programas no debería sobrepasar los 7K (con lo que quedan 9K 
de memoria útil en el Spectrum de 16K). No se incluye ningún código de rutina de 
máquina, y las escasas instrucciones de acceso a código de máquina POKE's y 
PEEK?s que se emplean, son compatibles con ambas versiones del Spectrum. 


Los programas 


La mayor parte de los listados de este libro se prepararon para una impresora 
EPSON y un interface RS232. Sólo las cadenas de caracteres ASCII se pueden con- 
fiar normalmente a una impresora distinta de la del Spectrum; por eso, los gráfi- 
cos de baja resolución del Spectrum y los caracteres gráficos “UDG”” CHR$ 128 a 
CHR$ 164 inclusive, se denominan como códigos CHR$ en los listados, cuando se in- 
cluyen en programas. 

Esto no afecta al proceso de los programas, y es preferible en muchos aspectos 
—sin que haya dudas respecto a qué carácter se trata. 


B.N. La impresora EPSON no contiene el signo %, por lo que se representa en los 
listados con el signo £, ni el de copyright O, que se representa, a su vez, por el 
signo O, 


He tratado de asegurar, dentro de lo posible, que los listados del libro sean idénti- 
cos a los que aparecen en la pantalla cuando escribas el programa. 

Aunque no es probable que un programador pueda entender perfectamente la 
técnica de otro, puede ser de alguna utilidad que exponga algunos de los puntos que 
presiden la exposición de los programas. 
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1. La pantalla del Spectrum y los listados tienen un límite máximo de 32 caracteres 
por línea, incluyendo el número de línea. 

2. Las líneas con instrucciones múltiples no facilitan la legibilidad. 

3. En una instrucción PRINT de línea simple sólo se pueden utilizar 19 caracteres 
antes de que se desborde en la línea siguiente. 

4. Las instrucciones REM constituyen una ayuda importante al desglosar el pro- 
grama. 


No estoy de acuerdo con la opinión de que la calidad de un programa se debe juz- 
gar por su longitud. Un programa debe permitirnos obtener los máximos resultados 
con el menor esfuerzo posible, sobre todo si hay que escribirlo mediante el teclado. 
Por eso, utilizo más bien poco las órdenes PRINT y, por tanto, también hago que la 
salida en la pantalla contenga sólo la información necesaria para que pueda ejecutarse 
el programa. 


Errores 


Generalmente, los errores de las entradas de datos se reducen al mínimo. En el ca- 
pítulo 10 he incluido algunas indicaciones útiles que te pueden ayudar, si lo deseas. Si 
un programa se para, con un dato disparatado por ejemplo, se pierde generalmente 
poca información (aunque signifique un golpe para tu orgullo) y el programa puede 
comenzarse de nuevo con una orden GOTO (en las notas de los programas se inclu- 
yen algunas condiciones especiales). 


Copias por la impresora ZX 


Todos los programas se han efectuado de manera que su impresión en la pantalla 
pueda tener calidad, tanto en monocromía como en color. Por ello, tanto los textos 
como los gráficos están representados con gran nitidez, y se pueden sacar copias a 
través de la impresora ZX, aunque no está de más recordar que ésta sólo nos propor- 
cionará esas copias en blanco y negro, sin tonos intermedios. También los resultados, 
cuando se obtengan a través de la impresora, saldrán siempre en blanco y negro, y 
parecerán un negativo de la imagen de la pantalla, a pesar de que he utilizado represen- 
tación inversa (BORDER 0: PAPER 0: INK 9), es decir, pantalla negra con colores 
de salida blanco o brillantes, a fin de dar la impresión de noche estrellada. 

Si no dispones de una impresora ZX, o la que tienes no está conectada al Spec- 
trum, los programas se saltarán las Órdenes COPY, LLIST y LPRINT cada vez que 
las encuentren, y pasarán a la línea siguiente. Si no sabes bien cómo quitar esas ins- 
trucciones del programa es mejor que las dejes donde están. 
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Enmiendas 


Ninguno de los programas que contiene este libro es sagrado, de manera que pue- 
des introducir tus propias enmiendas cuando lo necesites, con lo que personificarás el 
producto final. 

Por ejemplo, yo casi no he utilizado la instrucción BEEP, porque asocio la Astro- 
nomía con el disfrute de noches maravillosamente silenciosas bajo un cielo estrellado. 
Pero si crees que estas instrucciones vienen bien a tu propio programa, puedes añadir 
cuantas quieras a las ya incluidas. 


Velocidad de procesamiento 


Se ha escrito mucho, en la literatura especializada en ordenadores, acerca del 
tiempo que un ordenador tarda en ejecutar una serie de instrucciones como medida de 
la velocidad de procesamiento de ese ordenador. Esto puede ser importante en los 
programas de búsqueda o selección de información, pero, como quiera que ninguno 
de los programas que se contienen en este libro es de esa naturaleza, la cuestión resul- 
ta irrelevante. La velocidad de operación del Spectrum es más que adecuada para la 
mayor parte de las tareas que ha de ejecutarse en Astronomía para aficionados. 

Pongamos un ejemplo: el programa “Efemérides planetarias””, del capítulo 6, tar- 
“ da unos veinte segundos en procesar e imprimir en la pantalla todas las posiciones de 
los planetas —de Mercurio a Plutón—, con una precisión de minutos de arco para 
cualquier fecha que se elija. Pues bien, un matemático experto tardaría de quince a 
veinte minutos, por cada planeta, en hacer tales cálculos ““a mano””. 


Del Spectrum al firmamento 


Algunos de los programas incitan a la observación, por lo que espero que te ani- 
mes, a veces, a dejar tu Spectrum y busques los planetas y las estrellas a que se hace 
referencia en los programas, utilizando unos prismáticos o un telescopio. Ello daría 
más valor a los programas. 

A estos efectos, puede servir un pequeño telescopio. El dato más importante a la 
hora de elegirlo no es su tamaño (que es consecuencia de la disposición de sus elemen- 
tos Ópticos), sino el tamaño de la apertura de su lente colectora principal —o del espe- 
jo, si es un telescopio reflector. 

Cualquier cosa que mejore la mezquina apertura del ojo humano (7 mm de diáme- 
tro como mucho, cuando se ha adaptado a la oscuridad) producirá resultados 
sorprendentes. Por ejemplo, un telescopio refractor (lentes), de 60. mm de apertura, 
recoge al menos 70 veces, es decir, (60/7)? más luz que el ojo, y hace claramente visi- 
bles muchos objetos que parecen apagados en la noche. 

Incluimos, como apéndice, una lista de algunas organizaciones que estarían encan- 
tadas de ayudarte si te acabas convirtiendo en un adicto de la Astronomía. 
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¡Aviso! Nunca debes mirar al sol con unos prismáticos o un telescopio, pues queda- 
rías ciego al instante y para siempre. Y esta recomendación vale incluso para los 
instrumentos provistos de los llamados filtros solares, puesto que éstos pueden 
hacerse añicos con el calor del sol, o permitir el paso de radiaciones peligrosas. 
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Introducción 


En torno a las siete de la tarde del domingo 25 de septiembre de 1983, me pregun- 
té, con objeto de hacer un alto en la mecanografía de este libro, si el planeta Júpiter 
estaba visible en el claro cielo del atardecer. El planeta estaba ya bajo, al suroeste, 
cuando lo contemplé la última vez, unas semanas antes, y su situación no había mejo- 
rado. Era esencial actuar con rapidez, por lo que efectué una rápida consulta median- 
te programas como los que se incluyen en este libro. 

Primero procesé la cinta del programa “Efemérides planetarias”, con la fecha 
de entrada “*1983:9:25””. Apenas veinte segundos más tarde, se había completado 
todo el proceso y obtenía todas las posiciones de los planetas mediante la impre- 
sora ZX. 

A continuación, procesé el programa ““Buscaestrellas””, con la posición de Jú- 
piter en RA 16 h, 16 min y Dec —20,8* introducido juntamente con la latitud del 
punto en que me encontraba (+ 51,2% N). El programa se detuvo durante el proceso 
de trazado a las 18 horas GMT (igual a 7 pm BST) y obtuve otra copia que indicaba 
que Júpiter debería estar en una posición de azimut de 211% (dirección sur-suroeste) y 
a una altura de + 12% sobre el horizonte. ¡Aún había oportunidad de contemplar a 
Júpiter, pero solamente con un cielo claro, antes de que se hicieran visibles las es- 
trellas! 

Finalmente, procesé el programa “Satélites de Júpiter””, e introduje la fecha para 
trazar, a intervalos de dos horas. También saqué copia de lo que apareció en la 
pantalla. 

A continuación, emprendí una frenética carrera hacia el fondo del jardín, donde 
tenía montado permanentemente el telescopio. ¡La suerte estaba de mi lado! Allí, 
visible claramente, mediante el telescopio, anidado en un hueco del tejado, estaba el 
planeta Júpiter, con cuatro lunas que le acompañaban en desordenada alineación. La 
referencia obtenida para los satélites Jovianos los identificaba como Europa, lo, Ca- 
listo, el mismo Júpiter y, al otro lado del planeta, un solitario Ganímedes. Todos, 
precisamente, en la situación prevista para tal fechay hora. 

Unos minutos más tarde, a las 18,20 GMT, Júpiter desapareció tras las chime- 
neas, mas no antes de que alguno de la familia Gavin fuese atrapado por un espía 
mediante el telescopio. Esto pone de manifiesto que, incluso cuando el tiempo apre- 
mia, los programas se pueden encadenar rápidamente para obtener de ellos informa- 
ción relevante que hace a la Astronomía más gratificadora. Espero que ello contribu- 
ya a entretenerte. 
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Capitulo 1 
Tiempo 


El tiempo y el calendario 


El tiempo no es, realmente, el tic-tac de un reloj. Si el tiempo no existiera, tampo- 
co existiría el Universo. El tiempo es, fundamentalmente, una medida del cambio 
experimentado por la posición de un objeto (es decir, del movimiento), sea el de un 
electrón que gira en torno al núcleo atómico, o el proceso de alejamiento de las gala- 
xias a partir del Big Bang. s 

Afortunadamente, el tiempo parece algo tan natural como el respirar. El tic-tac 
del reloj es una forma sencilla de dar fe del paso de los acontecimientos en segundos, 
minutos y horas. Y el calendario ordena, de algún modo, lo que acontece, en perío- 
dos de veinticuatro horas. 

Los astrónomos utilizan todos los sistemas familiares de medir el tiempo, aunque 
necesitan introducir en ellos algunas variantes. 


El cronometraje de la Tierra 


Aunque se crea que la Tierra es un cronómetro perfecto, ya que da una vuelta 
completa sobre sí misma una vez cada veinticuatro horas, se han descubierto en su pe- 
ríodo de rotación pequeños fallos que han de detectarse mediante modernos cronóme- 
tros de extremada precisión. Como un año tiene exactamente 365,2422 días, no sólo 
tenemos que saltarnos años para corregir el calendario, sino introducir ““segundos es- 
calares”” para corregir el período de rotación de la Tierra. Estos segundos escalares se 
aplican sólo en intervalos infrecuentes, de quizá un año o más, y su necesidad no se 
puede predecir con certeza. 

La Tierra se puede comparar con un patinador que gira en el hielo sobre sí mismo. 
Cuando extiende los brazos, su velocidad de giro disminuye, porque el movimiento de 
rotación se ha convertido en un “momento angular””. En el caso de la Tierra, parece 
ser que los cambios climáticos (como pueden ser una serie de depresiones que se origi- 
nen en el Atlantico Norte durante varios meses) pueden contribuir a que se produzcan 
ligeros cambios en sus movimientos angulares, y ello obliga a introducir “segundos 
escalares””. Lo que decimos no está demostrado plenamente, pero no está de más que 
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recordemos que una simple tormenta sobre Gran Bretaña descarga más energía que 
una bomba H. Tal es el poder de la meteorología. 


El calendario 


Los 365 días del año (o 366, si el año es 
días, entre 28 y 31 días al mes y 12 meses 
deriva probablemente de lunar (moonth), debido a que éste es, aproximadamente, el 
período de tiempo que tarda la Luna en dar una vuelta completa alrededor de la Tie- 
rra, pasando por cuatro fases —luna llena, cuarto creciente, luna nueva, cuarto men- 
guante y luna nueva otra vez— de siete días aproximadamente de duración cada una. 


bisiesto) se distribuyen en semanas de siete 
al año. La palabra mes (month en inglés) 


La reforma gregoriana del calendario 


La promulgación del calendario que permitía introducir un día escalar cada cuatro 
años, se debe a Julio César. Con ello se conseguía recuperar el desfase anual de un 
cuarto de día (unas seis horas). Al hacerlo así, se suponía que el año tenía 365,25 
días, mientras que se ha demostrado que, en realidad, el año tiene 0,0078 días (11,23 
minutos) menos. Esta diferencia, que se puede considerar trivial cuando se la contem- 
pla aisladamente, puede acabar retrasando en varios días el comienzo de un año en el 
transcurso de varios siglos, por lo que, en el siglo XVI, la cuestión se consideró se- 
riamente. 

En octubre de 1582, el papa Gregorio* introduce el calendario que lleva su nom- 
bre, establecido para mejorar el calendario Juliano. Para ello, se suprimieron los días 
comprendidos entre el 5 y el 14 de octubre, ambos inclusive, de aquel año, de manera 
que el 15 de octubre siguió al 4 del mismo mes, haciendo regresar al calendario al 
punto donde había comenzado el de Julio César. 

Para asegurar que no se volviese a producir un desajuste semejante durante varios 
miles de años, se tomó una segunda medida, consistente en acordar que dejaran de 
ser bisiestos los años 1770, 1800 y 1900, previstos como tales por el calendario Julia- 
no, y, en cambio, siguieran siéndolo los años 1600 y 2000, ambos divisibles por 400. 
Simple, pero efectiva medida con la que se ha podido reducir el error de 11,23 minu- 
tos a tan sólo unos 26 segundos, que es la diferencia que existe entre el año civil (tal 
como lo aceptan los Gobiernos) y el año tropical o año real. Tal desfase de 26 segun- 
dos se puede corregir mediante la omisión de un año bisiesto cada 3.334 años, con lo 
que podemos dejar la solución del problema a la acción de las generaciones venideras. 
Como podemos comprobar, el papa Gregorio y su consejero para la reforma del ca- 
lendario, Clavius, eran hombres de visión amplia. 

Pero, como quiera que el calendario Gregoriano se estableció por el Vaticano, los 
países protestantes, como Inglaterra, se negaron a aceptarlo. De hecho, Inglaterra y 
sus colonias de América del Norte no lo introdujeron hasta 1752, lo que explica la 


* Gregorio XII [N. del T.]. 
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parquedad con que se hace referencia a los acontecimientos de 1582 en los libros ame- 
ricanos que tratan de estas materias. Uno de los últimos Estados en adoptar el calen- 
diario Gregoriano fue la URSS, que no lo hizo hasta 1917. 

Cuanto acabamos de reseñar es importante para el historiador de temas políticos o 
astronómicos. El calendario que se utilice para realizar una prueba debe de estudiarse 
muy bien, para saber a qué fechas se refiere realmente. 

Hecha esta introducción, veamos algunos programas relacionados con el calenda- 
rio y el tiempo. 


““Calendario del Spectrum?” 


El programa que incluimos a continuación muestra en la pantalla un calendario a 
color, en el que aparecen los meses, de cuatro en cuatro, de cualquier año que se se- 
leccione, a partir de 1582, año en el que se introdujo el calendario Gregoriano, o, si se 
prefiere, el Calendario Reformado moderno. 


El programa 


La parte esencial del programa es la línea 10, en la que se calcula el número del 
llamado Día Juliano, a través de la variable j(m) para el primer día de cada mes, me- 
diante el empleo del primer bucle FOR/NEXT m. En la línea 130 se compara este día 
con el número del Día Juliano de cada día, comparando la variable jx con el número 
del Día Juliano para el primer día del mes próximo: 


130 IF jx=j(m +1) THEN GOTO 190 


es decir, comienza un nuevo mes. Con ello conseguimos que cada mes tenga el núme- 
ro de días que le corresponden y que se consideren los años bisiestos (en los que fe- 
brero tiene 29 días), a intervalos de 4, 100 y 400 años. 

La brevedad de la subrutina que permite considerar el número del Día Juliano en 
una sola línea se ha conseguido mediante el empleo de la Lógica Boleana, por la cual, 
lo que va entre paréntesis sólo se considera cuando es cierto y se anula cuando es 
falso. La línea 140 identifica el día de la semana (domingo, lunes, etc.). 

En la línea 220 se incluye una instrucción de salto (GOTO), a fin de que apa- 
rezcan las dos páginas siguientes (es decir, las que comienzan por mayo y septiembre) 
del calendario. Es importante que las líneas 311 y 313 no sufran modificación porque, 
en caso contrario, el programa no pasará de la primera página, que contiene los me- 
ses enero, febrero, marzo y abril. El valor del segundo bucle FOR/NEXT m se va ele- 
vando mediante la variable *“a”” en la línea 311. La instrucción de salto GOTO de 
la línea 220 repite este bucle m hasta que m sea igual a 12+1 para diciembre, así el 
programa hará GOTO 313 (300 + 13) y se procesará de nuevo. 

Las instrucciones REM identifican la estructura general del programa. La mayor 
parte de ellas se refieren a la compleja presentación y disposición de la pantalla. En la 
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línea inferior de la pantalla aparece durante un momento el número de cada Día Ju- 
liano. En cada número aparece un valor de 0,5, dado que el Día Juliano comienza a 
mediodía (esto se explica en este mismo capítulo, más adelante, con ocasión del pro- 
grama “Fecha Juliana””). Véase, en la figura 1.1, una página de muestra del calenda- 
rio del Spectrum. ? 

La utilización de la instrucción n$ al comienzo del programa tiene el dobJe propó- 
sito de titular el listado y la presentación en pantalla. La variable a$ reserva espacio, 
mediante la instrucción de dimensionamiento DIM a$ (30) para utilizarlo en la línea 40: 


40 PRINT ... d$+a$+d$ ... 
en lugar de la más usual: 
PRINT ... d$+*“* 30 espacios vacios ” +d$ ... 


en la que la variable d$ contiene las letras iniciales de los días de la semana, desde el 
carácter 37 en adelante (el contenido completo de la variable d$ se presenta en la lí- 
nea 6). El resto de la variable d$ contiene el nombre de los meses. 

La línea 210 contiene una instrucción condicional para que el ordenador facilite 
una copia de lo que aparece en su pantalla, página a página, mediante la orden 
INKEYS. 
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Figura 1.1. 
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Ejemplos de calendario. 


LISTADO 
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CALENDARIO Ñ 


Xy 0 6 23 H E e e «6- He e 3 + E q KK e $ He $ 
z DIM 


r. AAA 27 
| 

Bl once 
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y 
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O 


t=USR "np! TO USE "ne7a READ ma 
PORKE Fon NEXT fi: REM REMe oe 
6 DATA 36,0, 120,68,68,68,08,0 
2 LET dé$="EneFebMarábrMayJunduda 
gosepOctNovDicdLMxIVG" 
HEN 60 TO 7 
8 LET yy=y/100: LET yi=INT yy 
E LET yt=y/400: LET y4=INT yt 
15 E po M HAEDO DEA dE E DE dl Pl 2 E 

10 FOR m=1 TO 12: LET j(m=INT 

(os 2 (y mi 3909 4 INTO (30,06001 
*(mel+12*(m23))3)-yl+y4+1720994, 5 
+i+(1 AND yy=yl AND ytxsyd AND om 

Li LET es (mi=d$ (me TO mx3) 

13 NEXT m 

20 LS 2 LET o z=li LET zz=0 

A 

2 EN pantalla inicial 

cbr MEM RA HR 

30 FOR n=1 TO 13: FPRINT PAPER 

ní2-13 1INK SinSin)+" "5: NEXT n 

40 PRINT : PRINT : PRINT y: Fo 

R 4=0 TO 1l: FOR n=1 TO 7: PRINT 

PAPER =n3 1INK 93d8(36tn)+at+d+% 
ión: NEXT n: PRINT : PRINT 2 
NEXT 4 . 

30 PRINT AT 2,9i1e$(a)30T 2,2723 
etla+l)¡84T 11,9ie$ (a+ 2) 3AT 11,22 
e% lara 

A E 

dl REM formateado de pantalla 

A AS 

60 FOR mea TO ata LET oxx"1 

30 1 mi OR m4 OR m=7 OR m8 
OR m=11 OR m=12 THEN O LET oxx=10 
 LET o za=O 

90 1 mi OR m=7 OR me=11 THEN 
LET oz] 

100 FOR dui TO 31 
110 LET jj (mm +1 
120 1 miz THEN 60 TO 140 


7 INFUT "a o="5y2 1F y21583 T 


O 


O 0 Q=.....0- 0... 7.350 


SS 


130 1F ¿¡x=j(ím+1) THEN 60 TO 19 


8) 


140 LET q=INT (ju) 7 INTO Olga 
3) /73+1 

1530 LET x=qr+rlgs 1 qei THEN LET 
x= eqrla LET uz 

II AS 
y 1330 REM. imprime el calendario 
O 1 ES ty 15 E M He dd PE DE AE DO DE DE DE dl Dl 2 26 2 Jl ME Ml E ME dE dE 
1 160 FRINT AT oytxx,ztzezR O FAFER 7 
| “quo o" AND m/2=INT (mía 0000 
AND d210)5 INK %Sid 
l 170 FRINT AT 21,05"No. de dia 
E 
| 180 NEXT ( 
190 NEXT m 


ss... . 


(0) 1 1 15) 4) EN E M AS 
1 dá fisio da, us s 
193 REM mer 


1 15] e 15 E M HR E E IIA A E A E 3 A A FE dE 2 A dE 
(a 200 FRINT +01 "*2*para COFIA, “Cc? 
pare continuar" PAUSE O 

210 IF INEEYS="%2" THEN COFY 
213 REM **siguientes 4 mesas 
o 50 TO S00+M 

ET armardí 0 TO 20 

RUN  KEM despues del 


Se -> 


mess 1 


A AAA 
ORO SAVE "Calendario" LINE 1 


PS SS A e e 


EE 


“Fecha juliana?” 


Los astrónomos se interesan, naturalmente, por hechos que tienen lugar lejos de la 
Tierra y que a veces se suceden con una periodicidad complementamente ajena a 
nuestro calentario. Y, como quiera que establecer su temporalidad mediante anota- 
ciones de los momentos en que se suceden, podría resultar penoso, recurren a un sis- 
tema de contabilización muy simple, llamado número del Día Juliano o, abrevia- 
do, DJ. 

El momento de referencia es el mediodía (GMT, hora del meridiano de Green- 
wich) del 1 de enero de 4713 antes de Cristo. Cada fecha se corresponde con un par- 
ticular DJ, que comienza a mediodía, y que actualmente es un número de siete cifras, 
superior a 2.400.000. Este número, que se superó el 17 de noviembre de 1858, se utili- 
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za a veces como fecha de referencia, llamada número del Día Juliano Modifica- 
do (DIM). 

La rutina que presentamos a continuación calcula el DJ de cualquier fecha que se 
facilite al ordenador posterior a octubre de 1582 —mes en que se promulgó el calen- 
dario actual (gregoriano). 

El DJ puede contener fracciones decimales de días, de modo que esslegier aconte- 
cimiento que se produzca en un día determinado puede referenciarse, con detalles de 
décimas de segundos, mediante un simple, aunque largo, número. Por ejemplo: 


MD 2445470,501 =lunes, 16 de mayo, a las 0 h, 1 min, 26,4 seg (GMT) 
es decir, 1 min y 26,4 seg después de la medianoche del lunes, 16 de mayo de 1983. 


Como puede verse, el número del Día Juliano es más adecuado para operar con el 
ordenador que las fechas del calendario regular normal. 


T 
O 1 REM LISTADO 
| PRE HE E a E IM IE IR 
4 10 PRINT "Fecha Juliana (On TL) += O 
! dd: 

Ñ 1 EJEM ME EDDIE LE AE IDE JA E DE DE DEA DE E 26 a 1 
100 1% RESTORE 16: FOR f=USRK *"n* T (0, 
O USE "nU+7í READ ni FOKE €,n: N 

EXT E 
O 1 16 DATA 56,0,120,68,€8,08,068,0 (EN 
: 30 LET D*$="SabDoml.unMarMiedJuev | 
| ieEneFebMarábrMaydundiudAgoSea lick 
a NovDic" O 
40 INFLJT "a O0"5Y,"mes"iM, "dia" 
O A ED 
di 50 LET MS=D$ (Mxe3+19 TO Mid) de: 
100 60 po 10001 LET J=J+D | 
160 LET Q=J-7*INT (3/7) 1 
O | 170 LET MUERES TO e O 
200 PRINT J+1720996,:03 ' , 
200 PRINT Yp" "ames" "iDil=s"g"c 
e la "GE$2* FRINTO: 60 TO 1 O 
0 15) PUE M $6 26 PE M6 Dé «260 M0 Dl Mo dE E dE e Dd e $ 
o, 910 REM calce no. de día duliano DO. 
E 
1010 LET YY=Y/1002 LET Yl=INT YY 
O) ]  LET YT=Y/400%: LET Y4=INT YT O 
10%0 LET Id=zINT (CAB, 20% (0 (M2) 
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J)AINTO (30, 6001 (M+1+412%(M2:3)))- 


Y1+Y4 O 
1040 1 YY=Y1 AND YT<5Y4 AND M3 
THEN LET JJ=JJ+1 e 
O 1050 RETURN o 


| 
| 
| 
l 
| 
l 
1 
| 
| 
Y 
| 
| 
! 


NI A 
9990 SAVE "Diad" 


““Calendario Juliano?” 


Este programa, que es una variante del de la ““Fecha Juliana””, presenta en la pan- 
talla un Calendario del Día Juliano completo para cualquier mes de cualquier año 
posterior a octubre de 1582. También puede identificar los días de la semana, hacien- 
do que resalten por contraste, lós domingos, mediante la instrucción de inversión de 
vídeo (INVERSE). Véase la figura 1.2. 


A IA E TT Le AA 


PARES: 3 FEEERMEE ME ; 
y is LATE Ra E l 
P a j l 

' , Besa 


Figura 1.2. Ejemplo de calendario Juliano mostrando el número del Día Juliano 
para cada día. 


El programa da cuenta del número actual de días en el mes que se selecciona. El 
DJ se imprime completo y se temporiza a las 0 h UT (GMT), es decir, desde la media- 
noche. Pero, como quiera que el DJ comienza a mediodía de la fecha anterior, a la 
respuesta se suma 0,5. Esto representa las 12 horas que transcurren entre el mediodía 
y la medianoche, momento este último en que comienza un día civil. 
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$ 
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EXT € 
16 


REM LISTADO 


EXELIL IE IE E E 
FRINT "Calend. Juliano "3 


RESTORE 16: FOR f=USR "nm" T 


tn?+7i READ o ni FOKE £,nioN 
: REM e e 
DATA 36,0,120,68,068,08,068,0 


bMaráAbrMayJunduid AgoSepOactNovDia" 


Pd 
A 
4.1 
90) 
60 
100 
110 
d LE 
120 
Aia 
de p 
149 
1350 
13 
160 
170 
180 
189 
190 
274 
20Ó 
LO 
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909 
$10 
911 
1000 
1010 
so LET 
1020 


THEN 


FRE, IE ME II IIA E 

INFUT "a O0"1Y, "mes"; 

A 

LET Mé$=D$ (Me3+12 TO M*3+14) 

FPRINT Yi" "3M83*" (Ohr TU)" 

GO SUE 1000 

LET X=02 LET Az=G 

FOR D=1 TO l2 LET J=JJ+D 

IF D:14 THEN. LET X=14% LET 
REM X,A para el formateado 

antalla 

O E 

1F J=J1+1 THEN STOEB 

ESE] AM E A 

ET Q=J-7*INT (1/7)+1 

ET Es=D8 (2x1 TO 20) 

INVERSE O 

IF Es="Do" THEN INVERSE 1 

AE 

FRINT AT 1+D-X, X+A1ES5D5 

PRINT O TAR X+6tAs de. 5 

NEXT Di STOF 

II E 

REM calce no. de dia Juliano 

A 

LET ED=17209962 LET Ml=M+1 

WET YY=Y/100% LET Yi=INT YY 
Y T=Y/400: LET Y4=INT YT 

1 YY=Y1 AND YTZ2<:Y4 AND Moxz 
LET ED=ED+1 


ecc... co 0. 0.0.0. 5.0... 


O 


O 


1030 LET O JJ=ED+INT: Cód. 2% (Y 0 
239) IA INTO CO. 0001 (M4 1412 (M3) 
JAY lr YA 

1040 1 YY=Y1 AND YT<=*Y4 AND Mi= 
2 TMEN.  LET ED=ED-1 

13O ET Jl=ED+INT (63. 0 OY OM 
JOA INT CO 000 1 01 A 129 (11 
180 de RETURN 


3790 SAVE 


tal" 


“Día de la semana”” 


¿En qué día de la semana naciste? 

¿Cuándo volverá a caer en jueves el día de Navidad? 

Este simple programa resuelve tales problemas, comparando cualquier fecha que 
se le facilite con el día de la sertana —domingo, lunes, etc.—. Resulta ideal para in- 
corporarlo como subrutina, en la que se incluye la fecha, a un programa más largo. 


O REM e e dt dE ld dl dl A 
10 FRINT "Dia de la semana="j 
11 REA dl e dd Ad 
13% RESTORE ló: FOR Ff=USK "n' TT 
O USE "n +7 READ ni: FORFREÉ f,nisoN 
EXT + 
16 DATA Ba A lr tic t 
SO LET "SabDbomL.unMarMieduev 
ia” 
40 INFUT "a O0U"iY, "mes no."4M, " 
dia"iDi 60 SUB 1000 
160 LET (Q=J-“7*INT (3/7) 1 
170 LET Es=Ds Ci TO 51) 
SO00 PRINT Di" / "ami 0/03 Y 3 U= "GER 
FRINT 3 60 TO 1 
DOG REN A E ME Dd dE E A 
910 REM calce no. de dia Julian 
911 REM OA: 
LET Yi=INT YY 
' LET LET Vd YT 
1020 LET J= -D+INT CHAO SR OY OM 
JH INTO CO 64001 (mad rd ae (MC 
“Y ]+Y4+ (1 AND YY=Y1 AND YT< 3 


ND M23)1 RETURN 
GOO. REM RR INE RR E 
9990 SAVE "Diasem" 


“1 Ln 
pl a e e E a IE! 
E A e E 
=2-B5e 1314 =L cn 
LAS LTBE=Lun 


Figura 1.2. Ejemplo del programa «Día de la semana». 


“Intervalos entre dos fechas”” 


Presentamos a continuación un programa que calcula los intervalos correctos, en 
días, horas y minutos, entre dos fechas que pueden mantener entre sí una separación 
tanto de pocos minutos como de siglos. La parte importante del programa comienza a 
partir de la línea 10, donde se introduce un MJD (Month Julian Day) para cada fecha 
que se proporciona al ordenador. Cada fecha tiene un solo DJ y el programa tiene en 
cuenta los años bisiestos, a intervalos de 4.100 y 400 años. Cuando se introduce una 
fecha errónea, el ordenador la corrige, antes de calcular los intervalos. 


Ejemplo a) 33 de febrero de 1983 (fecha errónea) =5 de marzo de 1983 (fecha co- 
rrecta). 

b) 33 de febrero de 1984 (fecha errónea) =4 de marzo de 1983 (fecha co- 
rrecta). 


Las dos fechas se pueden introducir en el ordenador en cualquier orden, pues la 
instrucción de la línea 70 asegura siempre que el resultado será positivo. El mes debe 
proporcionársele en su expresión numérica (1 para enero, 2 para febrero, etc.). En la 
figura 1.3 se da un resultado típico. 
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SY REM e a 

10 REM, 

11 

15 RESTORE 16: FOR f=USR 
0 USR 
EXT £ 

ló DATA 56,0,120,68,68,68,68,0 


Intervalo de Dias 


Mp YT 


inte7a READ ni POEÉE ni N 


¿O DIM I(2Di FOR s=1 TO 2 

40 INFEUT "a o0"3Y 3" mes"irq" 
aYiD, "hr (O-23) "3H5" min"imn 

30 PRINT Yi "/"3M3"/"3D3" "sH3" 
Eo" BRINGS "mm": LET D=D+H/24+MN/1400 

60 60 SUB 1000: NEXT x 

7O LET dia=ABS (1 (1)-3 (29) 

30 PRINT "Intervalo de dias="3 
dia 


di 


0 LET 


hora=24%(dia-=INT dia): 


LET min=460* (hora- INT hora) 


100 FRINT INT 


: 0 
909 REM 
910 REM 
911 REM 
1010 LET 
2 LET 

1030 LET 


"SINT mingim"gros 


"GS INT hora 
4 60 TO 1 

HR MA IR 

cale no. de dia Juliano 

E AE 

1Y=Y/1002 LET Yi=INT YY 
LET Y4=lNT YT 

dx d DA INTO (A, ER OY 


diaj"d 


3))-Y1+Y4+(1 AND YY=Y1 AND YT< Y 
4 AND M3) RETURN 
NI EE 
39990 SAVE "intdias" 


1 
1 
1 
dd 
e] 
] 
1 
| 


Hora local sideral 


Nuestros relojes, basados en un período de 24 horas, o en dos de 12, cronometran 
la andadura diaria del Sol por el cielo. A mediodía, la posición del Sol apunta aproxi- 
madamente al sur, a causa, más o menos, de que la órbita de la Tierra en torno al Sol 
no es perfectamente circular, sino ligeramente elíptica. Esto significa que la velocidad 
que lleva la Tierra mientras recorre su Órbita varía según las estaciones, en tanto que 
el movimiento de rotación de la Tierra sobre su eje es casi constante. Como conse- 
cuencia de todo ello, el paso diario del Sol por el meridiano sur sufre una disincronía 
de unos 15 minutos de adelanto, o de retraso. 

Las estrellas, en cambio, mantienen una periodicidad virtualmente constante, ya 
que, al encontrarse tan lejos de la Tierra, las variaciones que ésta experimenta al reco- 
rrer su órbita no tienen consecuencias. Las estrellas ocupan su lugar en el cielo con un 
adelanto diario de cuatro minutos, tanto si la luz del día permite contemplarlas como 
si no. Por tanto, el tiempo sideral, o tiempo que se basa en las estrellas, se mide me- 
diante relojes que se adelantan cuatro minutos a los normales. 

El conocimiento del tiempo sideral de cualquier fecha y hora es importante para 
que los astrónomos puedan planificar con antelación sus sesiones de trabajo (siempre 
que el tiempo lo permita). Las mejores oportunidades para contemplar el cielo son 
aquéllas en que la zona de interés celeste queda al sur del observador, si éste se en- 
cuentra en el hemisferio norte, o al norte, cuando el observador está situado en el he- 
misferio sur, y a las mayores alturas posibles, ya que, cuanto mayor sea la altura a 
que esté el observador respecto al horizonte, menor será el parpadeo con que se ven 
las estrellas, debido a las perturbaciones atmosféricas. El pequeño programa que 
planteamos a continuación calcula el tiempo sideral local correspondiente a los datos 
que se introduzcan en el ordenador. Por ejemplo, si el tiempo sideral que resulta de 
efectuar los cálculos es 6 h y 44 min, la estrella que más brilla en el cielo, Sirius, esta- 
rá en dirección al sur, cuando esta hora coincide con la Ascensión Recta, que se expli- 
ca en el capítulo siguiente, para Sirius. 


15) 19] FI NA e E de dE Dl E JO DE JE A 2 JE 
10 KEM Hora docal sideral 

11. MEDI Ae RE dE RH JE IE dE A 
13 PRINTO FAFER 67% ce 
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¡A pyrbnbrmeiigieio 
Li 
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ss yea LET Meis 
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Par DOE 
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THER LET 


SB INT (6724) +24 

LASA TA TS AT/1430*4 

4d THEN. LET Sed 

Zo 0. THEN LET SuSrzd 
LE Pe INT. (5100) 100 

FRE] dede dE dede aid dd E RE dE AEREA 
LET O HeT 60 SUB 2002 PRINT 
: LET H=ST2 60 SUE 500 
y PRINTO O: 60 To 50 


150 LET 
160 1 5 
170 1F $2 
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o a 
y HEPM HA 
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“Velocidad de reacción (reflejos)”” 


Aunque quizá guarde más relación con la impresión bastante ““imprecisa”” que tie- 
ne nuestro cerebro de los intervalos cortos de tiempo, resulta apropiado incluir este 
programa dentro de la sección dedicada al tiempo. El ojo humano continúa llevando 
aquí la voz cantante, debido a su magnífica capacidad sensitiva como detector, cuan- 
do observa a través del telescopio, mientras que los fotodetectores son caros, comple- 
jos y, generalmente, inservibles. Las puestas de un cuerpo celeste —denominamos así 
a la aparición o desaparición de una estrella detrás de la Luna o de un asteroide— 
pueden proporcionar resultados precisos de validez científica acerca del movimiento o 
diámetro de ese cuerpo. Este trabajo está escrito casi exclusivamente para astrónomos 
aficionados que utilizan telescopios poco potentes, lo cual no obsta para que sea im- 
portante conocer la llamada «ecuación personal» de cada observador (la precisión de 
cada observador) para ajustar sus resultados —una precisión optimista es de 0,1 se- 
gundos. 


El programa 


Este programa utiliza el reloj de 50 hercios del Spectrum —comenzando con la 
instrucción de acceso a la dirección de memoria POKE 23672,0 en la línea 45— para 
comprobar tu tiempo de reacción a una serie de «puestas» simuladas, tanto aparicio- 
nes como desapariciones. Todos los resultados se manifiestan de una forma audible, 
numérica y visualmente (mediante un gráfico de barras en color). Cada acontecimien- 
to se pone en marcha con una pausa de acceso en la línea 30, para evitar que te antici- 
pes. Si haces trampa, presionando la tecla ““p”” antes de tiempo, o tardas más de 
cuatro segundos, el ordenador te avisa y hace caso omiso del resultado. La memoria 
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Figura 1.4. Resultado del Test de Tiempo de Reacción. 
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ROM del Spectrum tratará también de engañarte, saltándose líneas si se omite la pau- 
sa 1 en la línea 21, pero esto no se cuenta en tu resultado. 

La parte esencial del programa está en las líneas 45 y 100 que, respectivamente, 
ponen el cronómetro a cero (POKE) y “leen”” (PEEK) la respuesta. Las instruccio- 
nes comprendidas entre estas dos están limitadas a un bucle INKEY$, que añade 
menos de 0,02 seg (para procesar el dato) a tu tiempo de reacción. Tus resultados 
serán de 10 a 20 veces más lentos que este período. La figura 1.4 muestra un resultado 
típico. 

Este programa puede ser muy interesante incluso para un astrónomo. ¿Cómo eres 
de rápido apretando el botón? 


E 
F FPRINT "Tiempo de reaccion"; 
ELEVE MIA 


59 
4 ERINT *"Ecuacion personal 
"2:10 ocultaciones simuladas." 
$ FOR del TO 73 PAUSE 20: PRI 
NT AT 9,03 INK 135 reaparicione 
"AT 11,07 INK B-ii "y Y desapar 
iciones"i NEXT ii FAUSE 200 
6 FRINTO**"Si tu tiempo ess.4 
desea el resultado es de 
scontado," 
7 FPRINT ORO: FLASH 1i"Da una t 
ecla para empezaTan." PAUSE O 
E BORDER Os Or INE Zi Ll 
LS y LET EE=0 
10 PRINT "Da *p* cuando aparez 
caoo desaparezca la estre 
e 
12 FAUSE 200: PRINT AT 9,0% Fl, 
A segundos" 
Ñ 5 53 50 36 5 e 53 E e 53 03 503 e X 53 53 ke 53 5-3 He 53 ke X 
LET oO FOR 2=0 TT 


1 
¿O THEN GO TO 


SO PAUSE SOC 
40 PLOT e A 
Ahédo FRESIA HA dd AA EEE IEA 


20 
o 
O 
¡o 
O 
o 
O 
a 
O 
O 
0) 
O 
O 
: 
a) 


43 FOKE 2O7z, O 

SO IE INEEYS="p" THEN 60 TO 1 
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Capitulo 2 
Esferas dentro de esferas 


Para representar la bóveda celeste que se encuentra sobre nosotros, los astróno- 
mos utilizan un sistema de cóordenadas virtualmente idéntico al de dos dimensiones 
que emplea tu Spectrum para escribir (PRINT) y dibujar (PLOT y DRAW). Sin em- 
bargo, mientras que la representación que hace el Spectrum, a través de la pantalla 
del televisor, es pequeña y plana, la bóveda celeste constituye una envoltura de 360%, 
tanto en horizontal como en vertical. Uno de los hemisferios está sobre nuestras cabe- 
zas y, el otro, bajo nuestros pies, formando una esfera completa. 

Calcular las posiciones en esta esfera es una operación relativamente compleja, y 
requiere la utilización casi constante de la Trigonometría. Está lejos de los propósitos 
de este libro explicar las matemáticas que su materia implica; de hecho, se excluyen 
deliberadamente, de manera que puedes limitarte a escribir los programas en tu orde- 
nador, sin que te veas obligado, para ello, a tener conocimientos de Matemáticas o de 
Trigonometría. 

Los astrónomos utilizan un determinado número de sistemas de coordenadas. 
Nosotros vamos a utilizar uno que se refiere a la relación que existe entre nuestro ho- 
rizonte y las estrellas, cuando pasan por el firmamento. Esto implica la conversión 
de, por ejemplo, una posición de una estrella de un sistema a otro. Con el fin de ex- 
plicar esta relación, presentamos a continuación un par de programas experimentales 
(experimentales quiere decir, aquí, de presentación), aunque, si prefieres obtener pri- 
mero una explicación escrita, puedes leer el apartado que se titula «Interpretación de 
la Esfera Celeste», y volver después a estudiar los programas. 


““La esfera celeste (imágenes en tres dimensiones)”” 


La esfera celeste (un mecanismo muy querido por los astrónomos) es difícil de re- 
presentar en una superficie plana, por lo que trataremos de reconstruir una imagen de 
tres dimensiones por medio del Spectrum, mediante dos operaciones distintas. No te 
desanimes demasiado si no puedes captar la ilusión que pretendemos crear con ello. 
Se trata sólo de un experimento. Yo he probado ambos sistemas (los correspondientes 
a las dos operaciones de que hablaba antes) con razonable éxito, pero reconozco que 
algunos factores pueden escapar a tu control. 
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Figura 2.1. La figura muestra la imagen en la pantalla que, vista a través de filtros 
azul y rojo en cada ojo, dan sensación de tres dimensiones. (¡Si utilizamos un televi- 
sor en color!) 


El primer sistema consiste en dibujar dos imágenes separadas en la pantalla del te- 
levisor y visualizar el resultado a través de filtros de colores. Debes utilizar un televi- 
sor en color, y puede que necesites ajustar el contraste y el color para conseguir un 
mejor efecto. 

La figura 2.1 muestra una copia de la pantalla, una vez ejecutado este programa. 
Obviamente, la copia es monocroma y no pone de manifiesto que en la pantalla se 
utilizan dos colores sobre un fondo de color uniforme. 

Las dos imágenes superpuestas se han trazado en distintos colores. La imagen de 
la derecha está en rojo (INK 2) y la de la izquierda en azul (INK 1). Podemos destacar 
que, a excepción de la línea este/oeste (E/W) y de las letras E y W, ambas imágenes 
son idénticas, aunque se encuentren desplazadas horizontalmente una respecto de la 
otra. El color del fondo es magenta (PAPER 3). La elección de estos tres colores se 
han efectuado tras muchas consideraciones, por lo que no se deberán modificar hasta 
que el experimento se haya realizado completamente, de acuerdo con el programa. 


Examen de los resultados 


Para mirar la pantalla del televisor se necesitan dos filtros de colores intensos, uno 
rojo y otro azul, puesto que los filtros de colores pálidos no nos sirven para esta ope- 
ración. En la prueba, cada uno de los filtros hará virtualmente invisible la imagen que 
tenga en la pantalla su mismo color, mientras que resaltará la otra. Así, el filtro azul 
hará que resalte la imagen en rojo, y viceversa. Los filtros pueden ser de celofán colo- 
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reado transparente o de acetato y, cuando la naturaleza del material lo requiera, ha- 
brán de superponerse varias capas para conseguir colores más intensos. Los filtros de- 
ben de ser cuadrados, de 5x 5 cm, aproximadamente. 

Para contemplar la imagen, debemos colocarnos a una distancia comprendida en- 
tre 1 y 2 metros, según en tamaño de la pantalla del televisor, con el filtro rojo colo- 
cado ante el ojo derecho y el azul ante el izquierdo. Las dos imágenes coloreadas de- 
berán aparecen fundidas en una, a la mitad de la distancia que separa al televisor de 
tus ojos. Seguramente habrás de tener un poco de paciencia antes de que el cerebro 
acepte ““considerar”” como una sola las dos imágenes discordantes. 

Toda la imagen, a excepción de la línea oval del horizonte, la línea E/W (este/ 
oeste) y las letras E y W, deben estar en el mismo plano. Del mismo modo, la letra W 
debe aparecer más próxima a ti, y la E más lejana. Notarás que el título del programa 
permanece fijo en la pantalla del televisor, debido a que está en color negro (INK 0), 
y como el negro es, en realidad, ausencia de color, los filtros no producen efecto en 
esta porción de pantalla, y la ilusión de tres dimensiones deja de percibirse. 


Limitaciones A 

A pesar de la complejidad que encierra su presentación en la pantalla, la figura de 
las dos imágenes en color que se interseccionan se trazó con el menor número de lí- 
neas posible. 

Esto se debe a que el Spectrum sólo puede colorear el cuadrado correspondiente a 
un carácter y, cuando se superpone un segundo color, la parte del dibujo que está ini- 
cialmente en rojo (INK 2) se convierte en azul (INK 1), al coincidir en el mismo cua- 
drado de carácter. Ello haría visibles, a través del filtro, algunas partes indebidas del 
dibujo y fragmentaría la imagen en tres dimensiones. 

Para minimizar este efecto, se traza primero la imagen roja, que aparece fragmen- 
tada cuando se la contempla a través del filtro azul, por lo cual desempeña un papel 
secundario. La imagen principal, en azul, aparece vivamente, con tan pocas líneas 
espúreas de la imagen roja como sea posible, para que no perturben. A pesar de la de- -' 
bilidad de su color, la imagen en rojo de la derecha resalta de modo suficientemente 
efectivo, al contrastarla con la imagen de la izquierda, en azul, y ambas producen la 
ilusión de tres dimensiones. 

Todos los televisores en color proporcionan matices (color más claro) y sombras 
(color más oscuro), a partir de una combinación de tres colores —rojo, azul y verde— 
““disparados”” por el tubo de imagen del televisor. Para asegurar que el color de las 
imágenes en tres dimensiones estén diferenciados al máximo, se utilizan sólo colores 
primarios. El color del fondo debe pasar por los dos filtros de color, para que el es- 
fuerzo de la vista sea mínimo. De aquí la selección de colores: azul (INK 1) y rojo 
(INK 2), con fondo de color magenta —que es azul más rojo—, conseguido mediante 
la instrucción PAPER 3. 
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El programa 


El programa es bastante sencillo y contiene las suficientes instrucciones REM 
como para que nos sintamos guiados. Introdúcelo en el ordenador, haz que lo ejecute 
y verás los resultados. Las dos imágenes a color se plantean entre las líneas 60 y 140, 
las variables “a” y ““al”” consiguen que estén suficientemente separadas, empleando 
el mismo bucle FOR/NEXT f. 


O REM dt dd 0 dd A dl 
10 REM Esfera celestial 3D-TV 
11 REMO eee dde de dE A Al dE E 
20 BORDER Zi FAFER Zi INE Or € 
LS 3: REM papel=magenta(rojotazul 
) 
30 FRINT "Esfera celestial 3D- 
usar filtrosrojotrtazul" 
40 ALET arzlidr LET al=1601, LET 
bB0: LET (=79 
E 
60 INE 25 REM imagen der, roja 
VA E E 
80 CIRCLE atljbyca 
0 PLOT alec,bí DRAW cx, 0 
100 FLOT alibs DRAW -+60,601 DRA 
W 10,120 
110 FOR €=:0 TO Flix STEF ,O2 
LLO LET O x="SIN fc LET y=C0S + 
c/3 PLOT alex, bery: NEXT fo > 
130 REM **Va a subrutina letras 
140 1 aral THEN GO SUE 2202 1 
NE Qí: PAFERK 72 STOF 
1 ES O (EN 15 M He A E DD Ad A Do e A DM Pl 26 
160 INE lí REM imagen dz. azul 
1 y O 15 E Mm ME IE EI di dE DE DE AE Dl Pe Dl Bl 3 «DJ Dl 2D «Ple 38 «3 
180 LET alruaz GO TO 80 
190 EEN e dt deje de dd AA dd A 
200 REM linea E/WN azul+letras 
po 1. 1% E 15 M Hed DEE DD DD Ml Ale Ple Dl PD «Ds «Pc «Jl «dr «dl 
220 PLOT al,ybi DRAWN 10,282 DEA 


9. 0.05 


0.0 0 5 0 0. 0.90. o 0.0. mm 


O e 0 20. O. E. Q 


250 FRINT AT TALAR MEMGAT 16,133 
"W"RAT 10,33 "NU AT 10,153 "0" AT 
O 


me 


O 
O 


40 


240 ERINT AT 4,55 "Np"sAT 19,213 


le] " 


EC) REAL A RAI MIA IRA 
260 REM linea E/W roja+tletras 
PO REN A A DM IE A 
280 INK 212 FLOT 160,b+ DRAW —3, 
281 DRAN 10, “36 

290 FRINT AT 7, 4 e AT 16,203 
"WN" AT 10,93 "N"zAT 10, RYO" ¡AT 


10 3005" 

200 ERINT AT 4,113 "Np"34T 19,7 
E ” Sp '” 

310 RETURN 

POCO RED A RD 
39990 SAVE "EsferalDTV" 


“Esfera celeste: efecto en tres dimensiones”? 


Este segundo programa utiliza una técnica completamente distinta, para producir 
otra imagen de la esfera celeste en tres dimensiones. Para realizarlo, no se necesita un 
televisor en color, sino una impresora ZX. Si no puedes disponer de ella, limítate a 
utilizar, para el experimento, la copia de la pantalla que se incluye en la figura 2.2. 

El sistema implica la preparación de dos dibujos distintos, desde diferentes puntos 
de vista, de un objeto para dar sensación de profundidad. Cuando se pone un dibujo 
junto al otro y se miran ambos cruzando los ojos, las dos imágenes pueden fundirse 
en una, produciendo una sorprendente ilusión de tres dimensiones. Se ha estimado 
que esta maniobra la pueden hacer, sin forzar demasiado la vista, una tercera parte de 
las personas. Espero que pueda conseguirlo un porcentaje parecido de usuarios del 
Spectrum. 

Como éste es el único sistema de presentar imágenes en tres dimensiones que no 
requiere ayuda, su inclusión en este libro parece justificada. El sistema tiene la venta- 
ja sobre el de filtros de colores y pantalla de un televisor, ya estudiado, de que las 
imágenes a observar pueden ser de considerable complejidad, y se evita el problema 
de superponer imágenes en color. 

Tanto el programa como las dos copias de la impresora ZX deberán trazarse con 
cuidado (utiliza como guía la figura 2.2). La anotación que aparece en la esquina in- 
ferior izquierda de cada copia indica la posición relativa de cada dibujo. Los centros 
de los dos círculos pueden guardar una separación de entre 70 y 100 cm, si bien la di- 
mensión exacta no es crítica. En cambio, sí lo es que las líneas N/S que atraviesan ho- 
rizontalmente cada uno de los dibujos sean semejantes. Comprueba este punto con 
una regla, antes de pegar firmemente la copia en una hoja resistente de papel blanco. 
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Figura 2.2. Esfera celeste en tres dimensiones. Mantén el libro a unos 30 ó 40 cm de los ojos e intenta cruzar la vista para que las dos imágenes se 
fundan en una sola, dando la sensación de tres dimensiones. 


Contemplación de la imagen 


Las copias así montadas para su visualización, se deben de colocar a una distancia 
normal de lectura (algo más lejos, si la iluminación es buena), sin que incidan som- 
bras sobre ellas, y se deben de contemplar bien encuadradas, nunca giradas o inclina- 
das. Cruza tus ojos. Quizá te ayude a conseguirlo la colocación, durante un momen- 
to, de un dedo entre tus ojos y el papel, y las dos imágenes deberán fundirse en una 
sola. El sistema requiere que la mirada converja en un punto medio, pero que los ojos 
enfoquen los dibujos. El exceso de concentración dificulta.el experimento, por lo que 
debes intentarlo a intervalos breves. 


El programa 


Este programa es una variante del de “Esfera celeste en tres dimensiones?” y mere- 
ce la pena que lo escribas, aunque no dispongas de una impresora ZX. Pero, incluso 
en la pantalla, los dibujos dan una imagen tan buena como si se hubiera dibujado en 
papel. Si intentas modificar el programa anterior para obtener esta versión, borra pri- 
mero las líneas 20 y 30 y añade, como instrucción directa: 


BORDER 7: PAPER 7: INK 9: CLS: LIST ENTER 


Esto borrará el perturbador color magenta del fondo, que resultaba imprescindi- 
ble para el programa anterior. 

Se añade una nueva línea 20 que contiene los datos para dibujar una figurilla crea- 
da mediante la instrucción POKE en UDG CHR$ 154. Esta figurilla parpadea 
(FLASH) en el centro de la pantalla (en lugar de la letra O) y presenta a nuestro 
observador en mitad de la esfera celeste. En este programa se trazan (PLOT) dos elip- 
ses para representar el horizonte y el ecuador celeste. Esta última tiene dos versiones, 
de acuerdo con la entrada (INPUT) de la línea 275, es decir, a la derecha o a la 
izquierda, y guarda una inclinación de 45* respecto a la horizontal. Las variables t 
(inclinación) y zx (semieje mayor) controlan la configuración de la elipse, la variable z 
es fija para la inclinación. La línea 500 permite obtener una copia (COPY) o volver a 
ejecutar el programa para obtener una segunda copia por medio de la orden INKEY$,. 
(línea 510). 


Interpretación de la esfera celeste 


La letra O (nuestra figurilla en el programa anterior) representa a un observador 
colocado en el centro de la esfera. El observador está situado en un plano horizontal 
y en la intersección de las líneas N/S y E/W. El punto que está sobre su cabeza se lla- 
ma zenit (Zn) y el que está bajo sus pies, nadir (Nd). A través de ellos pasa un segun- 
do plano, vertical, llamado meridiano (Mer). 
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Y REM 

10 REM 

1d REN 
20 DATA 

4 FOR £=0 

R CHR$ 134+ 
50 FRINT 


ra celestial en 


35 PRINT AT 1,1393 "Zn"34T 21,13 
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Cao MEXT + 
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273 INFUT "Imagen 12d. a DER, 
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RAW 10,28: DEAN 20, 3Os 
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rella en ecuad. celeste" 
400 LET t:18: LET 230%: LET zu 


IF cáé=x"d" THEN LET te3O2 L 
EX=Ó0 
420 LET 2=1/SIN ((.1+2)/180*F1) 
421 LET t=1/SIN ((,1+t)/180*F1) 
FO FOR n=0 TO FIx*2 STEF ,O%2 
440 LET aa=SIN n*zx 
4350 LET bb=C0S n*xx/t+raa/z 
460 PLOT INT (alt+taa), INTO (b+bb) 
47ZO NEXT ni INFUT 0" 
ADO REM 6 0 IMEI A E 
500 PRINT RO" para COFIA, non 
ueva imagen": FAUSE O 
10 TE TINEEY$="c" THEN. COFY 2 
INFUT ""3 60 TO 500 
520 RUN 
PIDO RED A A 0 DE EA A 
9990 SAVE "esferalpb" 


o... 5 >. 0 


o 
o 
E o 
0 
O 
0 
O 


El observador puede definir cualquier punto de la esfera en términos de ““azimut”” 
(horizontal), situándolo desde el punto norte del horizonte, siendo E=90%, S=1800, 
W =270%, y así para cualquier posición intermedia. La situación vertical se mide en 
altitud desde 0* (horizonte) a 90% (zenit). También se pueden emplear valores negati- 
vos, por ejemplo, la altitud del nadir es — 90%. El zenit y el nadir son, efectivamente, 
los polos del eje de coordenadas del horizonte. Todos los puntos de referencia perma- 
necen fijos, pues nuestro observador está, simplemente, en su país. 

La esfera del observador, de coordenadas del horizonte, está compartida por una 
segunda esfera, llamada esfera estelar o celeste, inclinada generalmente respecto a la 
primera (siempre que nuestro observador no resida en el polo norte de la Tierra) y tie- 
ne un sistema de medidas de ángulos virtualmente idéntico, aunque se denominen con 
otros nombres. Nuestro observador reside en un punto a 45? de latitud N, por lo que 
el eje de la bóveda celeste (paralelo al eje de la Tierra) pasa a través de él, en el ángulo 
formado por la línea Np (Ncp en el programa de cruzar la vista) y Sp (o Scp). La Es- 
trella Polar señala el polo norte en el cielo. 

Inclinado 90%, respecto al eje polar, está el plano ecuatorial, que corta a la línea 
E/W a través del observador. En el programa “La esfera celeste”” de tres dimensio- 
nes, esta línea se dibuja como si desde éste surgiera una estrella, alcanzara la máxima 
altitud cruzando el meridiano sur y luego se pusiese por el oeste. La estrella continúa 
su recorrido bajo el horizonte del observador y regresa al punto de partida 23 h y 56 
min más tarde. (¡En el Spectrum, este camino se recorre en un minuto aproximada- 
mente!) Este período se utiliza para calcular el tiempo sideral (estelar), que se adelan- 
ta en cuatro minutos al tiempo terrestre de 24 horas. Transcurridos 365 días (un año), 
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estos cuatro minutos de diferencia suman 24 horas, con lo que ambos tiempos vuel- 
ven a sincronizarse. Por esto, en cada estación aparece un cielo estrellado diferente. 

La esfera estelar se divide horizontalmente mediante una línea paralela al ecuador 
celeste, llamada declinación (Dec). Se mide en grados, desde 0% (ecuador celeste) a 
90% (polo celeste), que al sur del ecuador celeste tiene valores negativos. Las líneas 
que forman 90% con las líneas de declinación se llaman Ascensión Recta (AR) y son 
similares a la que señalan la longitud en.-la Tierra, si bien se miden en horas, en lugar 
de en grados. Cada hora de AR es igual a 15%, de manera que 24 horas son 360%, un 
círculo completo de la esfera celeste. Las líneas de AR se miden de derecha a izquier- 
da, a través del cielo. 

La AR de una estrella cuando cruza el meridiano, señala también el tiempo sideral 
en ese momento. Merece la pena recordarlo. Esto se necesita para calcular el tiem- 
po sideral mediante el día y la hora (utilizando el programa del tiempo sideral) para 
averiguar qué estrellas están al sur (utiliza para ello, como guía, un atlas estelar). 
Como las estrellas (y el Sol, la Luna y los planetas) se encuentran a su altura máxima 
cuando están sobre el meridiano, es entonces cuando se pueden ver mejor, particular- 
mente a través de un telescopio. 


Posición de una estrella 


Muchas veces es interesante saber dónde se pueden encontrar en el cielo una estre- 
lla o planeta particulares, y este programa lo realiza. Debido a su brevedad, supone 
que se conocen de antemano las coordenadas de la estrella, en términos de Ascensión 
Recta y Declinación. La información sobre una estrella se puede obtener de un atlas 
estelar Norton y, la de un planeta, del Sky Telescope o el BAA Handbook (véase el 
apéndice). Como alternativa, las posiciones de los planetas se predicen mediante el 
programa “Efemérides planetarias””, del capítulo 6. 


Conversión de coordenadas ecuatoriales 
en coordenadas de horizonte 


Este programa convierte la posición en coordenadas ecuatoriales (AR y Dec) de 
una estrella, o un planeta, en coordenadas de horizonte, en valores de azimut y alti- 
tud sobre ese horizonte. La figura 2.2 presenta las esferas interrelacionadas implica- 
das. Otros factores relevantes son la fecha y la hora en que se realiza la observación, 
y la latitud a que se encuentra el observador. Esta información es la entrada (INPUT) 
inicial, al comienzo del programa. 

La sección siguiente del programa, líneas 80 a 120, halla el tiempo sideral anterior 
a la entrada del nombre de la estrella, etc. La entrada de la AR toma la forma de, por 
ejemplo: 


12,56 (12 h 56 min) 
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en la que hay que incluir el punto decimal. Esto se convierte en horas y fracciones de- 
cimales de horas, mediante la variable rh, en la línea 300. La verdadera conversión a 
coordenadas de horizonte se realiza mediante las variables az (azimut) y al (altitud), 
en las líneas 410 y 390. 


ESA 
10 REM Alt, y Az de lima esta 
E 
Sl RESTORE 3 DATA 0,16,16,124, 
16,16,0, 124 FOR £=0 TO 73 READ 
di FORKE USE ECHR$ 144+$,ds NEXT 4 
60 IMEUT "Fecha agada, mm, dd "¡TA 
E CSiVYi TAR li¿MM5 TAR 14505 1 MM: 
12 OR D20 OR Doz31 Ml Dial To 60 
83 INFPLT "hora ¡ 
03 TH, TAR dis "min 
TO TT=THeMIZ40 
II A 
REM hora sideral/dia jul. 
AA 
LET YY=Y 3 LET M=MM 
1 M2 THEN LET MeMt+iz 60 
TO 110 
100 LET Y=Yela LET MueM+ia 
110 LET JeliNT (36%, 23% Y) +1INT 
0. 600 1*M) e 17: qu a 
120 LET Bs 
da 1 480 
24 
A E 
130 INFUT "nombre de la estrell 
alplaneta", Ar 
140 TINFUT "Ascthihi.mn) "¡TAB 10; 
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Utilización de los resultados 


Los resultados del programa se imprimen en la sección final (línea 440), con el 
nombre de la estrella y las coordenadas de posición en AR y Dec resaltadas mediante 
la orden PAPER S. Si la estrella está debajo del horizonte del observador, el conteni- 
do de la línea 445 hace que esta información parpadee en la pantalla. 

El programa proporciona entonces una opción para introducir una nueva fecha, o 
una nueva estrella para la fecha existente. Si se toma la última opción, se efectúa la 
orden GOTO 130 y los datos de la nueva estrella tienen que volver a introducirse. 
Usualmente, pedirás información de varias estrellas, y quizá planetas, en una fecha y 
hora determinadas, y esta opción acelera el proceso. Véase la figura 2.3. 


Figura 2.3. Altitud y azimut de Júpiter en el mismo día, pero en distintas latitudes. 
En la latitud 63,2 N se acaba de poner (altitud —19), pero en la latitud 32,7 N aún 
está 23% por encima del horizonte. 


Ahora tenemos a mano el azimut y la altitud de una serie de estrellas, que se ano- 
tarán y copiarán a partir de la pantalla —¿cómo se localizan en el cielo?—. En este 
momento es esencial que efectuemos un trabajo práctico desde un punto conveniente, 
quizá un jardín o una terraza, con un horizonte completamente libre de obstrucciones 
(véase la figura 2.4). 

Si eliges para el programa algunas estrellas brillantes, deberías ser capaz de identi- 
ficarlas en el cielo, con la ayuda de un atlas estelar, o una copia del programa ““Ma- 
pas estelares”. 
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Figura 2.4. Horizonte local a medianoche. En la figura podemos ver las posiciones de la Osa Mayor y 

Cassiopea (la **W””) en cada estación del año. La Estrella Polar se mantiene aproximadamente en la misma 

posición. La z señala el zenit. La línea de puntos trazada desde las dos estrellas del extremo de la Osa Ma- 
yor sirven para ayudar a identificar la Polar. 


El escurridizo planeta Mercurio 


El planeta Mercurio nos pone de manifiesto por qué es esencial que nos familiari- 
cemos con los horizontes locales. Invariablemente, el planeta sólo es visible en un cie- 
lo brillante, a horas del atardecer o del amanecer, en momentos en que las estrellas no 
pueden guiar nuestro intento de localizarlo. Por ello no tiene sentido representar su 
posición en un atlas estelar. 
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En el hemisferio norte, la estación del año más favorable para encontrar el planeta 
es la primavera, de noche al Occidente; y en otoño, por la mañana, antes de que salga 
el Sol, al Oriente. En el hemisferio sur, las estaciones favorables para contemplarlo 
son, inversamente, el otoño para la aparición nocturna y la primavera para la matuti- 
na. Mercurio no está nunca a más de 20” del sur. 

La AR y la Dec de Mercurio se pueden encontrar en el BAA Handbook, en el que 
la “elongación””, o distancia al Sol en grados, proporciona una guía útil para calibrar 
la probabilidad de que una búsqueda sea fructífera. Alternativamente se puede utili- 
zar el programa “Efemérides planetarias” (capítulo 6) para predecir la AR y la Dec 
de Mercurio, y el programa “Expedición al Sistema Solar”” (también en el capítulo 6) 
para obtener la elongación conveniente. Aquí es aconsejable introducir varias fechas, 
digamos a intervalos de tres días, antes de que se transfieran a nuestro programa 
“Posición de una estrella””. 


Nota. Es conocido el hecho de que el famoso astrónomo Copérnico (1473-1543) no 
pudo contemplar nunca a Mercurio, a pesar de que lo intentase varias veces. 
Quizá se lo impidiera la niebla que asciende del río Vístula, en Thorn (Polonia), , 
donde vivía. Este programa te dará más suerte. 


“Buscaestrellas”” 


Este programa amplía el de “Posición de una estrella anterior”? y dibuja una estre- 
lla o planeta, en una representación del cielo en un período de 34 horas, utilizando la 


Edel 


oa 


Figura 2.5. Ejemplo de la representación en pantalla del programa *“*Buscaestrellas””. 
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pantalla completa del Spectrum. Incluye datos de 20 estrellas brillantes seleccionadas, 
distribuidas uniformemente por la esfera estelar, lo que facilita considerablemente la 
tarea de obtener tal información. (El programa contiene la opción de omitir estos da- 
tos, quizá para incluir una fecha posterior. Esto reduce el listado en una tercera parte. 
Realizalo, omitiendo la línea 125 y todas las líneas, desde la 1.000 en adelante.) 


Entrada de la información 


Las 20 estrellas listadas se pueden seleccionar mediante su número simplemente, 
tal como se pone de manifiesto en la figura 2.6. No es necesario que conozcamos las 
coordenadas de la estrella (AR y Dec) sobre la esfera celeste, puesto que éstas se al- 
macenan en el programa como datos y se pueden utilizar automáticamente. 


A A 
slo 


Ext 


Figura 2.6. En el programa las estrellas se seleccionan por su universo. La opción 
21 permite introducir una estrella nueva. 


Si la estrella que te interesa no está en la lista, introduce, mediante la instrucción 
INPUT, su nombre, su AR y Dec cuando te lo pida el programa. Estos datos están 
disponibles en cualquier mapa estelar. Si deseas introducir un planeta, utiliza de nue- 
vo la instrucción INPUT, pero consulta un almanaque astronómico o utiliza el pro- 
grama de “Efemérides planetarias””, del capítulo 6, para obtener su localización en 
la fecha seleccionada. 

Se puede introducir cualquier fecha, aunque cuando se trata de estrellas, no nece- 
sitas ocuparte del año, pues se considera que están fijas en el firmamento y repiten, 
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por tanto, la misma imagen en los mismos días de cada año. Así, se repiten el comien- 
zo y fin de la rutina de trazado (PLOT) en el mismo día de cada año. 
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Presentación de la pantalla 


Como quiera que para representar el cielo se utiliza una proyección Mercator, es 
inevitable que se produzca alguna distorsión al convertir una superficie esférica a la 
pantalla plana del televisor (recuerda qué grandes aparecen Groenlandia y la Antárti- 
da en los mapas escolares dibujados según esta proyección). 

El zenit en + 90% (el punto que está exactamente encima del observador) y el nadir 
a —90* (el punto que está bajo sus pies) se convierten en líneas imaginarias en las 
partes superior e inferior de la pantalla. Los 360% del círculo que representa el hori- 
zonte a los 0* de altitud, se marcan según N, S, E, W y N de nuevo en la mitad de la 
pantalla, separando el cielo de la tierra. 

La estrella o planeta se dibuja a intervalos horarios utilizando la instrucción INK 
9 (como contraste del color del papel), con lo que es visible incluso cuando está deba- 
jo del horizonte del observador. El intervalo puede modificar con cualquier valor, 
cambiando el incremento (STEP) en la línea 30. 


Otros horizontes 


El movimiento de las estrellas, tal como se dibuja con precisión en este programa, 
puede sorprenderte, a menos que hayas residido en el hemisferio opuesto y estés fami- 
liarizado con el firmamento. Por ejemplo, una estrella como Vega se moverá de este a 
oeste en la dirección de las agujas del reloj en el hemisferio norte, y en la dirección 
opuesta en el hemisferio sur. Desde el ecuador, la estrella puede ascender verticalmen- 
te hasta el zenit desde la parte oriental del horizonte y parecer que ““salta”” (recuerda 
que es una línea, y no un punto) sobre la pantalla y cae en el oeste. 

En el polo norte, todas las estrellas cruzan de izquierda a derecha, paralelamen- 
te al horizonte, sin salir ni ponerse. Lo mismo puede decirse respecto al polo sur, pero 
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el movimiento es inverso, de derecha a izquierda. Las estrellas-que “se niegan”” a salir 
en el polo norte están permanentemente sobre el horizonte en el polo sur, y viceversa. 

Todos estos efectos se pueden demostrar mediante este programa. Una estrella 
que no se pone nunca en una latitud dada se llama circumpolar, y este es el caso del 
Sol en algunas latitudes extremas (tierras del sol de medianoche) durante el verano 
del hemisferio. 


$ 


Capítulo 3 
La Luna 


El Sol, fuente de vida, no es muy de fiar, en opinión de la gente, debido a su in- 
fluencia sobre el tiempo meteorológico. El Sol domina la situación por completo, de 
manera que el hombre no tiene absolutamente ninguna posibilidad de controlar los 
avatares que origina. 

En cambio, la Luna está libre de tales problemas de relaciones públicas. Es, pro- 
bablemente, el primero de los cuerpos celestes que provocan la admiración de una 
mente joven —¿qué es?, ¿dónde está?—. Para muchos, la Luna es la personificación 
de todo lo que de misterioso y extraño hay más allá de los confortables confines de 
nuestro mundo, y todavía es el trampolín para la exploración del maravilloso univer- 
so. Incluso, aunque nunca podamos visitar personalmente tales lugares, podemos 
aprender a comprenderlos, y quizá podamos contemplarlos auxiliados por unos mo- 
destos prismáticos o un pequeño telescopio. La Luna es un perfecto punto de partida. 


““Las fases de la Luna?” 


La Luna es nuestro vecino espacial más cercano y el único mundo, si exceptuamos 
a la Tierra, sobre el que el hombre ha puesto el pie —a fines de la década de los sesen- 
ta, con las misiones Apolo—. El programa que presentamos a continuación es uno de 
los más cortos entre los incluidos en esta obra, pero los gráficos del Spectrum com- 
pensan con creces esta brevedad. En él se presenta un ciclo mensual completo, con to- 
das las fases de la Luna, desde la luna nueva a la luna llena, para volver, a través de 
un cuarto menguante, a la luna nueva. Los ejemplos que se dan en la figura 3.1 son 
típicos. 


Apariencia de la Luna 


¡Muchos artistas famosos han incluido en sus obras una representación de la Luna 
en cuarto creciente y resulta que, invariablemente, han dado una apariencia completa- 
mente errónea de ella! Las fases de la Luna se miden de una luna nueva a otra, aun- 
que, en realidad, en este periodo de luna nueva el satélite es invisible, debido a su 
proximidad aparente al Sol. La luna nueva sólo resulta visible cuando pasa directa- 
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mente frente al Sol, durante un eclipse de sol, puesto que, entonces, su silueta se re- 
corta contra éste. 

La verdadera luna nueva es la que puede verse unos días más tarde, al comenzar el 
cuarto creciente, al oeste, en un cielo brillante y con forma de C invertida. La Luna 
““aumenta”” de tamaño en los días siguientes, haciéndose mayor a medida que queda 
iluminada una parte más extensa de su superficie, cuando camina hacia la izquierda, 
desde la parte occidental del horizonte. 


| | Figura 3.1a. La Luna a los cuatro días de iniciar un ciclo. 


Figura 3.1b. La Luna, en cuarto menguante, a los 21 días. 
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' 
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Figura 3.1c. Luna llena. 


Unos catorce días más tarde. La Luna aparece como un disco brillante, debido al 
sol de medianoche —luna llena—. En ese momento ocupa una posición completa- 
mente opuesta al Sol (oculto bajo la línea septentrional del horizonte). Al continuar 
moviéndose hacia la izquierda sobre el fondo de estrellas, su fase disminuye hasta 
que, catorce días más tarde, se pierde en el rutilante cielo del amanecer, esta vez como 
una C auténtica, sin invertir, y desaparece hasta que se produzca un hermoso y nuevo 
creciente. Los astrónomos consideran conveniente la contemplación de la fase cre- 
ciente como si fuera un arco, de manera que una flecha lanzada desde él perforaría al 
Sol. ¡Vayan tomando nota los artistas! 


15 EN 15 M dl dB AE DE dE DE UD PE DO DO «Ps Ps DE DÉ dé 
10 REM Fases lunares 
1 1 E EM He AE DE A q DM DE 2 AD Jl E 2 DA DE dE 
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El programa 


El programa utiliza un simple bucle FOR/NEXT D para dibujar (DRAW) los dos 
arcos representativos de cada fase. La línea 80 traza (PLOT) primero un punto de re- 
ferencia, en el que debe comenzar el dibujo, y luego dibuja el *“brazo”” brillante o 
borde que está más cercano a la dirección del Sol. La línea 70 utiliza una instrucción 
condicional PRINT para identificar este brazo como “lado del Sol””. Luego, median- 
te la línea 110, se dibuja el terminator, o línea de salida y puesta del Sol en la superfi- 
cie de la Luna. 

Como la Luna es un globo esférico casi perfecto, el brazo se dibuja con el valor PI 
(mediante la variable P en la línea 40), como un semicírculo. Las instrucciones de la 
línea 50 hacen que este valor se haga negativo a partir del decimocuarto día (luna lle- 
na), de manera que este arco inicial se presenta en la parte izquierda de la pantalla en 
lugar de la derecha, y con una curvatura inversa. La fórmula de la línea 110 hace que 
la línea terminator pase de ser semicircular (luna llena o luna nueva) a ser una línea 
recta (cuarto creciente o menguante). Las líneas 90 y 100 aseguran que el arco termi- 
nator tenga una curvatura positiva (a la derecha) o negativa (a la izquierda). 

La Luna es, efectivamente, un globo, aunque la línea terminator avanza cerca de 
13% diarios (28 días x 12,86 = 360%), cuando se la contempla desde la Tierra. El escor- 
zo con que se la contempla hace que el movimiento de esta línea no sea constante. Da 
la impresión de que avanza más rápidamente en torno a las fases del primero o el últi- 
mo cuarto de luna, mientras está en el centro del disco. En torno a la luna nueva o la 
luna llena, el terminator se contempla con ángulos tan agudos, que el movimiento 
real se comprime mucho, hasta el punto de que se puede cometer un error de un día 
en la determinación del momento exacto en que se produce la luna llena. 

El programa que presentamos simula el efecto únicamente mediante la fórmula de 
la línea 110. Trata, como experimento, de corregir la variable x en la línea 30 y el va- 
lor en la fórmula (la última parte de la expresión), o sea, 25. 

El programa se ha escrito con el propósito de indicar las fases cambiantes de la 
Luna y no requiere que tratemos de forma muy precisa la línea terminator o el inter- 
valo temporal del ciclo mensual. Estos dos aspectos no están relacionados y se expli- 
can más adelante. 

En realidad, el perfil de la línea terminator es una elipse, pero utilizamos la orden 
DRAW de dibujo del Spectrum (en la que la tercera parte de la expresión nos propor- 
ciona la curvatura) para obtener resultados con rapidez. Los errores que se producen 
al comparar el arco con la elipse no son excesivos. El mayor margen de error se pro- 
duce cerca de las regiones polares del dibujo, a partir de una latitud comprendida en- 
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tre los 60 y los 759, y aun así, sólo durante unos cuantos días en torno a la primera o 
la última fase lunar. Hemos considerado que este condicionante es aceptable. 

El bucle FOR/NEXT de la línea 40 cuenta por períodos de 28 días para represen- 
tar el ciclo mensual de las fases. Este período es divisible por cuatro, de manera que 
se representan todos los períodos lunares. En realidad, el período sinódico de la Luna 
(tiempo medio que transcurre entre dos lunas nuevas) es de 29 días, 12 h y 44 min, es 
decir, alrededor de 29,53 días, lo que significa que el proceso que se ejecuta con el 
programa es casi un 5 por 100 más rápido que el ciclo real. 


Fases de la Luna: en órbita 


Este programa se basa en el anterior, sobre las fases de la Luna, ampliado para re- 
presentar a la Tierra y a la Luna, girando cada una en torno a la otra, y para describir 
completamente cada fase. Esto último se consigue mediante la instrucción condicional 
PRINT, en la línea 290. La línea 310 calcula los posibles eclipses y la línea 320 la línea 
terminator de las lunas creciente y menguante. Se incluyen numerosas instrucciones 
REM para mostrar la estructura general del programa. 


El sistema Tierra/Luna 


La Luna es el cuerpo del Sistema Solar de mayor masa en relación a la del cuerpo 
en cuyo torno gira (la Tierra). 

La masa de un satélite suele ser entre 1/1.000.000 y 1/400 de la del planeta prima- 
rio. La masa de la Luna es 1/80 de la de la Tierra, de manera que la Luna y la Tierra 
se comportan como un sistema planetario gemelo y giran cada uno en torno al otro, 
alrededor de un centro de gravedad común. Este último punto no está en el centro del 
planeta (como ocurre en todos los demás planetas), sino casi a medio camino del cen- 
teo ves=figje. en mo línea que une los cent; 


SAURA a lA 


Lots 


de ambos cuerpos. 

El programa imita este efecto, pero, para mayor claridad, tanto el diámetro de la 
Tierra como el de la Luna se han ampliado 100 veces. De otra manera, para represen- 
tarlos a su escala auténtica en la pantalla habría que haberlos reducido unos cuantos 
puntos y hubieran quedado virtualmente invisibles. Un punto que parpadea bajo la 
superficie de la Tierra, que se produce mediante la línea 250 con la orden OVER 1, 
señala el centro de gravedad del sistema Tierra/Luna. 


Sombras y eclipses 
Las sombras de la Tierra y de la Luna tienen formas de conos que se van estre- 
chando en dirección opuesta al Sol. Durante la fase de luna nueva, la sombra de la 


Luna puede caer justamente sobre la superficie de la Tierra. Un observador colocado 


65 


inmediatamente bajo este cono “*vería”” al Sol completamente oculto en un eclipse to- 
tal, de modo que el día se convertiría en noche y aparecerían las estrellas en el cielo. 
Este acontecimiento es raro y dura muy poco —apenas unos minutos— antes de que 
la rotación de la Tierra sobre su eje y el progreso de la Luna, a través de su órbita ha- 
gan “desaparecer” la sombra a unos 2.200 km/h. Solamente el Concorde es capaz (y 
lo ha hecho) de continuar dentro de la zona del eclipse, prolongando el acontecimien- 
to 40 min, mientras atraviesa todo un continente. 
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Figura 3.2. Fases de la Luna y su justificación en el sistema orbital Tierra/Luna. 


Los eclipses de Luna se producen cuando se proyecta sobre el satélite la sombra de 
la Tierra, lo cual puede ocurrir durante la fase de luna llena y, como la sombra de la 
Tierra es enorme, incluso a una distancia de 348.000 km (distancia de la Tierra a la 
Luna), la Luna puede quedar completamente oculta. Suponiendo que el cielo está 
despejado, la mitad de la población mundial (la que vive en el hemisferio que queda 
en la zona oscura) puede contemplar este acontecimiento, en contraste con los pocos 
miles de personas a las que es dado contemplar un eclipse total de Sol. 

Los eclipses no se producen cada vez que hay luna llena o luna nueva, porque la 
Luna y su Órbita están más vinculadas al Sol que a la Tierra. Sólo cuando la Luna 
cruza la eclíptica (la línea entre la Tierra y el Sol) en un punto llamado nodo, puede 
producirse un eclipse. 


El programa 


pi 

Una vez que se ha introducido el programa y se ha hecho que el ordenador lo 
procese, aparece en la pantalla un ciclo mensual. El usuario tiene entonces la opción 
de introducir un día o una parte decimal de un día para representarlo. La instrucción 
condicional GOTO de la línea 470 hace que el programa retorne automáticamente al 
punto de partida (es decir, GOTO 0) si se introduce un día <0 Ó >28. Mientras que el 
programa se procesa en el ordenador, se pueden sacar, en cualquier momento, copias 
de la imagen de la pantalla del modo siguiente: 
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BREAK : COPY: CONTINUE 


La figura 3.2 es una copia de la pantalla obtenida de este modo. 

El programa funciona en maravilloso silencio, pero, si esto te desagrada, puedes 
incorporar a la representación las órdenes de emitir un sonido (BEEP), al igual que el 
color, apropiadas. 


E E M Fe FE E RE IE e A dE 

REM Fases de la Lina 

ELE ARRE RRIR  I MdA d 
3 BORDER 7í FAFER Zi INE Yi E 


LET G=i92r LET H693 LET 
LET Ear LET M=100%: LET Z=0 
II A 
REM bucle principal 
E 
FOR D=0 TO 25 
EXE a DD 2 E E e 
REM dibuja la orbita lunar 
AS 
LLS y CIRCLE 6, H,J 
OS 
7% REM: dibuja Luna en orbita 
TA RED 4d ate de 0 dd dl a A JE AE 
O LET F=ETI2 LET Az=(D-7)/14*F 
90 LET C=brixrcOs A 
100 LET EsH+IeSIN A 
10 EIRAQLE Crd 
119 REP eee de dede de dd JE IE dE E dd Ia 
120 REM dibuja tierra en orbita 
A 
130 LET CluB6-4x*C05S A 
140 LET ElrH="6*STN A 
LO CIRCLE Enea El ds LE 
159 RED Rae e dE dE E MR dE dE dd dE Ad 
160 KEM diíb. sombra de la Luna 
II E EEE 
FOR Mu, TO 3 
PLOT CANE: DRAW O, Hu LON 
190 PLOT E-MN, Es DRAW O, Et LON 
OO MEXT ON 
Mos 19) > 15 E lM FEE A PE IE dE DE dE E dE DE A 9 dE DE 


o. 0.0 


0.50 


0-0 =U>O .0 SS. 2 9 


O 
eN 
O 
O 
O 
O 
O 
O 
O 


O 


210 REM dib sombra de la tierra 
211 REM ARA E AE E Ad EEE 
220 FOR N=,3% TO 13 
230 FLOT Cl+N, Ela DRERAW O, Mun 
290 FLOT ClioM, Els DRA O, M= EJ] 
2 FLOT. OVER 165, H 

NEXT ON 
II AS 
REM describe las fases 

A AA 
280 PRINTO FAFER Gi"Fase Linar 
MaCHRS Leza” sara "30 

290 PFRINTO FLASH 14 "Luna "ee OUNIL 
eva" AND (D=c RE D= 28) JC" en Cua 
arto " AND (D=7 GR Degidi+COLlen 
a" ANÓ 0=14+*"Creciente" ARNO 0) 
+0 AND D<143+C"Menguante" AND 
Dx14 AND DE) 
: Med Me dl ME REA E AAA dE ME 
eclipeaes 

eli dE dl IE A AE Ad AAA E 
pa 210 PRINT FLASH 110 "Eclipse dd 
E “Sol posible" AND (D=0 OR Dec) 


e Eclipse de Luna posible" AND 
D:=14) 


a] 


AO PRINT (C"amanecer" ANO D2140 
+(M"atardecer'" AND Dx14)4 PRINT O" 
vista lunar" 

aa PERENTO INE AT dd, 2 Tier 
ratiAT 3,185 INE Li "Orbita Lunar 


PRINT. FAFER 6AT 21,8% "Luz 
SOLE * + do 2 

A E ES 
REM dibuja el limbo 
II 
IF D:14 THEN LET Fuep 
PLOT 3,140 DRAW 0,2, E 
II 
REM dib. resto del contorno 
II AS 
LEP =1) 
90 1 BE 


400 LET ON=xXx*ATN (F1/180%-E 23) 
410 FLOT 3,14: DRAWN 0, JI%23,N 
41 REM dd AA A 
42O REM sale del bucle Cr=1) 
A E ES 
4O IF Z=1 THEN. 60 TO 430 
440 FAUSE 200: NEXT Di LET Z=1 
430 INFUT "Escoge dia "3D 
AO REA A E 
460 REM gota condicional 
Abd REM 0 A dd 
470 GO TO (Do=O AND Di=28) 60 
PIOO- REM AR dE 
9990 SAVE "Luna" LINE 4 
9999 REM 10,10,10,1000 


Fases de la Luna (usando los UDG) 


Cuando necesitamos representar en sucesión rápida las fases cambiantes de la Lu- 
na, y el tamaño de un simple carácter cuadrado es suficientemente grande para ello, 
puede ser útil utilizar los gráficos definidos por el usuario (UDG). Obviamente, no se 
pueden indicar todas las fases concebibles, pero se puede conseguir un efecto conve- 
niente, al menos, con una selección suficiente. 

El programa siguiente, que se puede incorporar a otro más extenso como subruti- 
na (véase la Luna de marzo en el capítulo 6), se ha escrito con este propósito. Define 
16 caracteres UDG desde CHR$ 144 a CHR$ 158, ambos inclusive. Las fases sucesi- 
vas van desde “luna nueva”? (CHR$ 144) a “luna llena”? (CHR$ 152) y vuelve de nue- 
vo a ser una estrecha media luna (CHR$ 159) inmediatamente antes de pasar a “luna 
nueva”” otra vez. En la figura 3.3 se detalla la construcción de los dibujos de las fases. 

La redefinición de cada uno de los 16 caracteres gráficos requerirá introducir 128 
familias de ocho datos (16Xx8). En este programa, los datos contienen solamente 
48 valores —suficientes para las tres primeras líneas de cada carácter—. Como quiera 
que la sección inferior de cada uno de los caracteres es simétrica de la superior, el 
programa realiza la duplicación necesaria de datos, tal como se pone de relieve en la 
figura 3.4. 


Funcionamiento del programa 


Introduce el programa completo y haz que el ordenador lo ejecute para compro- 
bar los resultados de tu trabajo. Las líneas'110 a 220 definen el nuevo carácter UDG 
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a 
CHR8  14L 


luna nueva 


CHRg 148 


primer cuarto 


CHAS 152 


luna llena 


CHR3 156 


último cuarto 


Figura 3.3, Definición de las fases de la Luna mediante los UDG. 


y, desde la línea 1.000, se da una nueva orden de impresión para mostrar los cambios 
que se producen diariamente en la fase de la Luna (véase la figura 3.5). 

Observa que la fase creciente se imprime más a la izquierda —lejos del Sol— cada 
día que se representa, hasta la fase creciente final inmediatamente a la derecha del 
Sol. La luna llena se imprime a la máxima distancia del Sol —en el centro de la 
imagen—. Esto imita correctamente la apariencia y el movimiento de todas las lunas 
principales en el sistema solar en sentido directo o inverso al de marcha de las agujas 
del reloj, según se contempla desde arriba (al norte) de la órbita de la Luna. 
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DATA DATA FOR/ 


READ POKE NEXT 
bucle 
línea O (BIN 00110000) | | | A E 48 y 
línea 1 (BIN o1ooo0000) | MN | | | | [| ] 64 6 y ) 
línea 2 (BIN 10000000) MN | | | [| [| | | 18 128 
línea 3 (BIN 10000000) BHA_| | | | | [| ] — 128 repite línea 2 


= 128 repite línea 2 
= 128 repite línea 2 
= 64 repite línea 1 ) ñ 
— 48 repite línea 0 


línea 4 (BIN 10000000) 
línea 5 (BIN 10000000) 
línea 6 (BIN 01000000) 
línea 7 (BIN 00110000) 


¿MN 
M0 A 
2, 100 O O O 
CLA LL] 


Gh! 


pre, 


Luna 


SEAS 


RE RR aii 
er 


ETA 


du 


+ 
de 
3 
yx] 


Dias 


Y 


di 
if 


Figura 3.5. Representación mediante los “Gráficos Definidos por el Usuario”” de 
las fases de la Luna. 


Nuevos gráficos 


Veamos un procedimiento simple para rediseñar cualesquiera caracteres de este 
tipo: 


1) Haz un croquis de los nuevos caracteres en papel cuadriculado. 
2) Introduce en el Spectrum, como una orden directa, los valores BIN, es decir: 


PRINT BIN 00000110 ENTER (valor decimal 6 - línea 0) 
PRINT BIN 00000 111 ENTER (valor decimal 7 - línea 1) 
PRINT BIN 00001111 ENTER (valor decimal 15 - línea 2) 
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3) Sustituye los datos por nuevos valores, recordando que los tres primeros valores 
son para CHRS 144 y los tres últimos para CHR$ 159. 


DO REÍA IE HE dE dE ARE AR AE 
100 REM  GDU de fases lunares 
A E 
110 DATA 0,0,0, 122241121002 12 

s6r7112,14,159,12,30,301,28,6%,0%5 
120 DATA 60, 126,127,604, 12642000 q 

60, 126,254,56,124,252, 48,120,248 
130 DATA 48,112,:240,48, 96,224, 4 

8,96,192,48,04,128 


T 
1 
1 
1 
| 
| 
I 
| 
| 
| 
| 
| 
| 
1 

a LEO REA e 
| 
1 
| 
| 
1 
| 
/ 
1 
| 
| 
1 
l 
l 
| 
| 
1 
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140 REM almacena los G6DU 

E E A 
130 FOR n=0 TO 1%: FOR £=04 TO 1 | 
(100 READ p 

170 FOKE USK CHR$- (144en0)+4,p 
180 FOKE USE (HRS (144+n)+7=8,p 
190 NEXT 4 

200 READ cc: FOR x=2 TO $ 

10 PORKE USE CHE (14dernder,c 
AO NEXT xi NEXT on 

POH REE e A AE e dd E 
10006 REM. impresion de prueba | 
1001 REM MARLESAERESAR AEREAS 


O. U= > o 


"(500 de fases lunares 


E > 1040 FRINT AT 20, e sol" TAB 03 


po tesol"BAT 2,05 INE 34" Llina o Nue a 
A me lle car nue "Bo INE 46i'Udia" 


1030 FOR n=0 TO 1% LET z=p+4 
| 1060 PRINT AT An A y 
| 1070 PRINT AT 29 pn+134T 2,73% 
| $" 
1080 PRINT AT 2,24] 030 
a 1090 FRINT AT 2,230 FAPFER 05 1 
l 
| 
| 
| 
| 
| 
I 


NES [HR (144+n)1 PAUSE 501 NEX 
Ton 

1100 INE 02: FAFER Zi STOEÉE 

900 REM. AI Md dE A JE dE JE E 


9990 SAVE "GDUluna" 


Capítulo 4 
Satélites 


El lanzamiento del Sputnik I por la URSS, en 1957, dio comienzo a la era espacial 
e introdujo una expresión nueva en el vocabulario común: satélite artificial, para dife- 
renciarlo de los satélites ““naturales””, que en el contexto astronómico tienen un signi- 
ficado muy preciso: cuerpo que gira en torno a un planeta, como la Luna, único saté- 
lite ““natural”” de la Tierra. 

A partir del Sputnik I, se han colocado en órbita terrestre miles de satélites artifi- 
ciales, y algunos se han enviado a girar en torno a otros cuerpos celestes, como 
Venus, Marte o nuestra Luna. Actualmente es raro que, en una noche clara, transcu- 
rran 30 minutos sin que pase sobre nosotros un satélite, mientras circunvala silencio- 
samente a la Tierra. A nuestros ojos, es un punto luminoso que se mueve rápidamen- 
te, siguiendo una trayectoria curva entre las estrellas. 

Los satélites que más brillan circulan, generalmente, en órbitas más bajas y se 
mueven de oeste a este a través del cielo (nunca en la dirección opuesta). Los satélites 
que circulan a lo largo de órbitas polares (es decir, que pasan por los polos en cada 
vuelta) son, generalmente, más ligeros, y guardan una alineación casi perfecta con el 
eje terrestre, de manera que se mueven de norte a sur y de sur a norte con una direc- 
ción precisa. 

El lanzamiento de un satélite cuesta cientos de millones de pesetas, ¡de modo que, 
si piensas solicitar un puesto de trabajo en el Centro de Control de Houston, conviene 
que te apliques a practicar los programas de simulación que a continuación te pro- 
ponemos! 


Orbita terrestre 


El programa modelo que te proponemos te capacita para colocar un satélite en Ór- 
bita en torno a la Tierra. Hay que introducir dos parámetros: la altura inicial del saté- 
lite sobre la superficie de la Tierra, y la velocidad inicial. Con ello se pueden efectuar 
miles de permutaciones, sin que existan dos idénticas. La órbita se traza en tiempo 
real y la presentación en la pantalla se reescala automáticamente para contener la ór- 
bita en la pantalla. 

Para asegurar que el satélite alcanza su altura máxima cuando gira alrededor de la 
Tierra, se traza la mitad de la órbita terrestre, puesto que, como la otra mitad es exac- 
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tamente igual, su imagen se podría considerar como si fuese la de la primera reflejada 
en un espejo, y no obtendríamos ninguna ventaja del esfuerzo realizado para comple- 
tar la órbita. Cada vez que se completa la mitad de la órbita, aparece en la parte supe- 
rior derecha de la pantalla el período orbital completo, expresado en minutos, horas y 
días. En la parte inferior izquierda permanece, durante todo el trazado, el tiempo 
transcurrido, en minutos, y las posiciones relativas de las coordenadás *x”” e “y””. En 
la esquina inferior derecha se representan la altura inicial y la velocidad que se intro- 
dujeron. Ñ 

Naturalmente que, como saben muy bien los científicos del espacio, la puesta en 
órbita de un satélite no se consigue sin más, automáticamente. Para ello, sobre todo 
si se le quiere situar en una órbita perfectamente circular, hay que sopesar la altura 
inicial y la velocidad. 

Aúnitenemos que considerar otra cuestión. Aunque el satélite recorra sin proble- 
mas su Órbita respecto al centro de la Tierra (es decir, el centro del campo de grave- 
dad de la Tierra), la superficie terrestre puede interponerse en su camino y hacer que 
el satélite se estrelle. El Spectrum, cortésmente, emite una señal!de alarma (BEEP) y 
queda a la espera de nuevas instrucciones (INPUT). 

Una segunda posibilidad de fracaso consiste en que el satélite se pierda en el es- 
pacio cuando la velocidad inicial es demasiado elevada. Este programa en particular 
no reconoce esta condición, y continuará adaptando la escala de la representación, 
mediante la línea 560 (if ... YY > 175) cada vez que el satélite alcance la parte supe- 
rior de la pantalla, esperando constantemente que el satélite retorne a la Tierra. En tal 
caso, debemos interrumpir el programa y ejecutarlo de nuevo. Se incluye una opción 


- para sacar una copia, a través de la impresora ZX, de las órbitas acertadas. 


El gráfico Kepler 


El siguiente programa traza las órbitas de acuerdo con las leyes del movimiento de 
los planetas de Kepler (que se aplican a todo cuerpo menor que gira en una órbita en 
torno a otro mayor) formando una elipse, en uno de cuyos focos se encuentra el cen- 
tro de la Tierra. El satélite acelera cuando se acerca a la Tierra, para compensar el in- 
cremento de la atracción gravitatoria que experimenta. Con los datos siguientes pue- 
des comprobar que el programa consigue una razonable precisión y constituye una 
bella simulación de las vueltas de un cuerpo en torno a la Tierra: 


1) Altura inicial: 370 km. 
velocidad inicial: 530 km/min. 
= período orbital: 88 min. 


Este es el periodo mínimo de los satélites más bajos, como el Sputnik I. 


76 


2) Altura inicial: 445.000 km. 
velocidad inicial: 68,5 km/min. 
= periodo orbital: 27,37 días (o período sideral). 


Esto corresponde a nuestro satélite natural, la Luna. 


Ejemplos de comprobación 


Los datos anteriores corresponden a órbitas perfectamente circulares. Pero lo más 
frecuente es que la órbita sea elíptica. Si la Órbita que se traza toca la parte izquierda 
de la pantalla, la representación no se reacondiciona (reescala), pero permite conti- 
nuar el trazado a modo de una imagen reflejada en un espejo, vuelta hacia la derecha 
de nuevo, para mantener la imagen a su máximo tamaño. Las copias de la pantalla 
muestran resultados típicos del programa (Figs. 4.1, 4.2 y 4.3). 


a ese 5 A sm que A ho e. 
media orbreita:z 


Figura 4.1. Simulación de órbitas alrededor de la Tierra: órbita de la Luna. 


Control de misión 


Trata, como experimento, de trazar órbitas para programas espaciales rusos y 
americanos, en comunicaciones de largo alcance. Los occidentales han lanzado satéli- 
tes geoestacionarios, emplazados a suficiente distancia de la Tierra como para que su 
período orbital sea de 24 horas y permanezcan fijos sobre el ecuador en una longitud 
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Figura 4.2. Simulación de la órbita de un satélite artificial de baja altura alrededor 
de la Tierra. 
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: Figura 4.3. Satélite artificial en órbita alrededor de la Tierra capturado por el 
i campo gravitatorio al no tener suficiente velocidad. 
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o. 0.00 


IAS 

10 REM Orbita terrestre 

3, 1 15 153 Ml RAR RAE 

15 RORDER O: FAFER O: INE 92 € 
LE 

SO LET SE=7912/21 LET HA= 

40 LET DN=.48181818: LET 

TO LET G=HAXDN*SE*SEs: LET Te0 

TO FLEMA td a dl A IE A E e 

380 INFUT "Altura sobre la tier 
ra en Em", EM 

83 LET EM=*EH/1.852 
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¿SE LET SPF=5F/1.83592%1 1F 5999 
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>) E E E M A E 

100 LET TM=2/Z3 LET H=TM 

120 LET WSFi LET X=EH+SE 

140 LET Y=G% LET V=0 

154 HEM e e IE dd dd al dE dE 

1393 REM pantalla inicial 

156 REM reed eE Ed dd dd MEE 

160 FOR M=x0 TO 2359 STEF 

170 PLOT INE 57140, N-"100 

1680 PLOT TINE 38,40: NEXT ON 

190 PRINT AT 16,01 ""3AT 16,30 
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A 
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E 
ac LET R=Xi LET S=uY 
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FOR T=G TO 4£6 STEF TM 
LET AH LET Yiye Hada 

60 SUE 440 

TE DESE THEN 60 TO 390 
II AE 
EN choque del sale 
AS 
270 FOR n=435 TO 30 STEF 131 E 
EEF ¿5,302 MEXT nm: PRINT INE 
234T 0,0; "Velocidad muy Dbajal?"C 
hoque en "Ei" min." 

336 60 TO 610 

E AA 
290 LET V=YV+HxeEs LET WeWN+Hxel 
410 60 SUE 500: NEXT T 

440 LET Exe Y Y 
ao ET Ds 
A7TO LET Esas 
490 RET 
AS 
500 PFRINT AT 19,07 "tiempo="4 TÍ" 
min 0 

310 PRINT "eje me" INT X3% Ems 


30 PFRINT "eje ye l¡ INT Yi" Ems 


YY (Y / 123% 2) +A40 
IF x20 AND Y20 THEN 60 TO 


IN AS 

y REM ajuste de 7 

E E M A ES 

360 1F XX OR +23 OUR YY 

173 THEN ¡N: y ERINT 
INE "Ajuste" 60 TO 100 
BRIGHT 13 INE (643XX, YY 

Me MIA EEE III E EA AE IE E 

AJENO 

ton=0 TO 0 STEF ¿Os REE 

3 MEXT on 


504 REN RARA IA ER ( 
393 REM periodo de orbita, menu 

50 LEN ARA A AA 
600 PRINT— INE 634T 0,05 "Feriod 
a media orbita="3 Tx2x "mm TAB 20 
pe INTO CT.) /1005 "her "* TAR 203 
Mm INTO (1/3/24) /100 "dias" 
A EA 
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determinada. Esta solución, que parece ser la ideal, la propuso Arthur C. Clarke en 
un artículo publicado eri la revista Wireless world en los años cuarenta. 

El planteamiento de los rusos es, o era, al menos en los años sesenta, colocar sus 
aparatos en órbitas acusadamente elípticas, aunque también con períodos orbitales de 
24 horas. Como hemos puesto de manifiesto anteriormente, tales satélites deberían 
modificar su velocidad constantemente, de acuerdo a la distancia que les separase de 
la Tierra en cada momento, y permanecerían relativamente estacionarios (de modo 
que no necesitan antenas con seguimiento), durante unas pocas horas al día, mientras 
están en el apogeo (la sección de la órbita más lejana a la Tierra). Con tu Spectrum 
puedes realizar muchas combinaciones. 


“Órbita de satélite”? 


Este programa se basa en el de órbita terrestre, pero se ha ampliado para que se 
pueda aplicar a cualquier satélite que gire en torno a cualquier planeta, o incluso a 
nuestra Luna. 

Además de introducir la altura y la velocidad iniciales del satélite, es preciso pro- 
porcionar datos del planeta alrededor del cual vaya a girar, como son su diámetro, en 
kilómetros, y la relación entre su masa y la de la Tierra (que aquí es igual a 1). Esta 
información se incluye en la pantalla inicial (Fig. 4.4), para varios cuerpos celestes, 
aunque no tenemos por qué reducirnos a usar sólo ésos. Habría que comprobar diver- 
sos datos, incluyendo características exóticas, como diámetros demasiado cortos y 
masas excesivamente grandes. No puede esperarse que el programa sea capaz de 
afrontar todas las posibilidades, particularmente cuando se trata de planetas que tie- 
nen masas muy grandes. La conjunción de un procesamiento insuficiente y de órbitas 
demasiado rápidas puede producir resultados extraños. 

El programa reconoce si un satélite está situado en una órbita parabólica o hiper- 
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Figura 4.4. Datos de diferentes planetas y satélites contemplados en el programa 
“Orbita de satélite””. 


bólica (abierta-cerrada) y, por tanto, se pierde en el espacio. Del mismo modo, el 
Spectrum emite una señal de alarma si la velocidad inicial es demasiado baja, porque 
el satélite corre entonces peligro de estrellarse contra la superficie del planeta. 


1431 
mo 
e TT A 


Figura 4.5. Simulación de órbita de un satélite alrededor de Saturno. 
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El programa reconoce especificamente un planeta (Saturno) y dibuja el sistema de 
anillos que lo circundan si se introduce su nombre en el programa (véase líneas 60 
y 190). En aras a la claridad, se aconseja emplazar el satélite fuera del sistema de ani- 
llos de Saturno. 

La orden de borrado CES no se utiliza, excepto para un nuevo planeta, y así po- 
demos recorrer múltiples órbitas, una tras otra, hasta que quedemos satisfechos con 
una Órbita particular. La información que aparece en las esquinas de la pantalla, co- 
menzando por la parte superior izquierda, consiste en: datos del planeta; período 
orbital individual, en minutos, horas y días, y, en la parte inferior, el tiempo que ha 
transcurrido, en minutos; posiciones relativas de las coordenadas “*x”” e ““y””, y altura 
y velocidad iniciales en kilómetros. Se incluye opción de copiar la pantalla en la im- 
presora ZX (véanse los ejemplos de las figuras 4.5, 4.6 y 4.7). 

El programa constituye un excelente medio para profundizar en el comportamien- 
to de, por ejemplo, las lunas de Júpiter o Saturno, cuyos campos gravitatorios son 
mayores que el de la Tierra. 

Como demostración de todo esto diremos que la luna lo de Júpiter está a similar 
distancia del centro de este planeta que la Luna del de la Tierra y, sin embargo, lo 
realiza una órbita alrededor de Júpiter en 1,8 días, mientras que la Luna tarda 27,3 
días (periodo llamado sideral) en dar la vuelta a la Tierra. Trata de experimentar al- 
gunos ejemplos con datos que puedes obtener de un libro de texto, pero no esperes 
alcanzar mucha precisión, porque los resultados deben de considerarse más como in- 
formativos que como precisos. 


Figura 4.6. Satélite en Órbita alrededor de la Tierra. Uno de ellos ha sido atraído 
por el campo gravitatorio terrestre, al que otro escapa definitivamente debido a su 
alta velocidad; un tercero, sin embargo, permanece en una órbita a gran altura. 


Figura 4.7. Órbita alrededor de un mundo 26.000 veces más denso que la Tierra. 

(Que es un mundo ligero comparado con la estrella LP 768 500, con una densidad de 

1.100 toneladas por cm. Las estrellas de neutrones y los agujeros negros son, por su- 
puesto, infinitamente más pesados.) 
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Capítulo 5 
Orbitas del sistema solar 


La Astronomía y las órbitas están vinculadas tan estrechamente como las fresas y 
la nata, hasta el punto de que, si prescindiéramos de las órbitas, todo el universo que 
conocemos se colapsaría literalmente. El movimiento perpetuo del satélite en torno al 
planeta, del planeta en torno a la estrella, de la estrella en torno a la galaxia, y así su- 
cesivamente, permite que el universo exista y le confiere su estructura. Y no debemos 
olvidar que las mayores galaxias del universo se componen de las cosas más pequeñas 
de la creación —electrones en órbita alrededor del núcleo atómico. 

Las órbitas personifican el movimiento perpetuo, concepto que se ha resistido a 
los esfuerzos de la imaginación humana, para la que resulta totalmente inaprehensi- 
ble. El más sensible motor a reacción fabricado por el hombre, se comporta como un 
basto mecanismo si lo comparamos con el que origina los billones de órbitas que 
nuestra Luna ha trazado en torno a la Tierra, con un movimiento tan sencillamente 
preciso que haría palidecer de envidia a un ingeniero. Pero la naturaleza no es impe- 
tuosa y, por supuesto, tiene tiempo —todo el tiempo del mundo— para comportarse 
con la máxima exactitud. . 

En último término, el movimiento orbital significa supervivencia: supervivencia de 
un cuerpo débil ante la tiranía gravitatoria de sus vecinos, tan intensa como para 
engullir a cualquier candidato que le pille cerca. La órbita es una fina cuerda floja 
por la que ha de caminar el cuerpo más pequeño para mantener su distancia, en un 
equilibrio perfecto entre las fuerzas de atracción gravitatoria del cuerpo mayor y de la 
repulsión que le permite liberarse de su esclavitud. La masa del Sol, a la que es pro- 
porcional su gravedad, por ejemplo, es mil veces mayor que la de todos los planetas y 
satélites juntos. Aquéllos no tienen otra opción que girar alrededor del Sol, y los cuer- 
pos más pequeños no pueden elegir otra cosa que girar en torno a ellos. 

El Spectrum y sus gráficos simulan algunas de estas órbitas fácilmente. 


Planetario 


En 1715, el conde Orrery construyó el modelo mecánico del Sistema Solar que lle- 
va su nombre. Mas, como quiera que en aquel tiempo sólo se conocían los seis plane- 
tas descubiertos desde la antigiiedad (de Mercurio a Saturno), quedaron fuera de su 
modelo Neptuno y Plutón, descubiertos posteriormente. En él, se representa cada pla- 
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neta mediante un globo unido a un hilo horizontal de longitud proporcional al radio 
de su órbita, bajo otro globo central que representa al Sol. Todo ello, colocado den- 
tro de una cabina perfectamente construida, con una manivela que, al girar, pone en 
movimiento a los planetas. 


El programa 


El programa que presentamos a continuación es una versión para ordenador de 
este dispositivo que simula la escala y el movimiento relativo de los planetas alrededor 
del Sol. Se utilizan dos escalas distintas: una, para los planetas Mercurio, Venus, la 
Tierra y Marte, y, otra, para Júpiter, Saturno y Neptuno. Tales escalas se pueden se- 
leccionar mediante INPUT: de 1 ó S (línea 80). 

En la pantalla se incluye un temporizador que cuenta, en semanas, la progresión 
de los planetas a lo largo de sus respectivas órbitas, a partir de una línea inicial co- 
mún. Repárese en que los planetas progresan más lentamente cuanto más alejados es- 
tán del Sol, por cuanto entonces no se encuentran inmersos en un campo gravitatorio 
tan intenso como, por ejemplo, Mercurio. En las figuras 5.1 y 5.2 se muestran dos co- 
pias de la pantalla como ejemplo. 

La línea 25 contiene los datos de los radios de las órbitas, los cuales se dimensio- . 
nam (DIN) y leen (READ) en la cadena a(f), en la línea 50. Las variables “h” y “g”” 
son las coordenadas horizontal y vertical de la posición que ocupan el Sol y el centro 
de las órbitas en la imagen resultante. 

Los textos de las líneas 60 y 70 hacen que se impriman las dos opciones, y la línea 
90 sobreimprime la que no se ha seleccionado con la variable b$ de 24 espacios en 
blanco. 


Figura 5.1. Planetario del sistema de planetas interiores. 
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Figura 5.2. Planetario del sistema de planetas gaseosos gigantes. 


La línea restante, que lleva la instrucción PRINT, sirve para encabezar la pantalla 
"siguiente, sin que haya necesidad de utilizar la orden de borrado CLS. Las líneas 120 
a 130 utilizan un bucle FOR/NEXT n para dibujar (utilizando CIRCLE) la órbita se- 
leccionada. Observa cómo afecta al bucle FOR/NEXT n el valor de la variable n 
(línea 120): 


If b = 1 then FOR n = 1*1 To 1 + 4(=5) 
oifb = 5 then FOR n = 1*5 To 5 + 4 (= 9) 


En las líneas 180 a 240 se utiliza un bucle FOR/NEXT n similar para hacer que los 


planetas giren en su órbita. El paso incluido en el bucle FOR/NEXT en la línea 150 
controla la longitud del programa que se ejecuta. 


La presentación en la pantalla 


La presentación es más efectiva si se realiza sobre una pantalla negra, mediante la 
orden directa: 


BORDER 0: PAPER 0: INK 7: CLS: RUN. 

Las órbitas están lo suficientemente alejadas entre sí como para que no necesiten 
compartir un mismo cuadrado de carácter. Se les puede dar color para conseguir ma- 
yor claridad, mediante la corrección de la línea 130 a: 


CIRCLE INK n - (b AND b = 5) + 1; g,h,a(n): NEXT n 
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Ley de Bode 


En 1772, el astrónomo alemán Johann Bode, demostró que las distancias medias 
al Sol de cada uno de los planetas de su sistema se correspondían con una simple pro- 
gresión matemática del tipo: O + 4; 3 + 4; 6 + 4; 12 + 4, ... en la que el valor para la 
Tierra era 10 (6 + 4). 

En aquella época, sólo se conocían seis planetas, que se ajustaban perfectamente a 
la afirmación de la que vino a llamarse Ley de Bode. 


Figura 5.3. Ley de Bode. 


El descubrimiento de Urano, tras Saturno, en 1781, y el del planeta menor Ceres, 
entre Marte y Júpiter, en 1801, que ““ocupaban disciplinadamente sus plazas””, confir- 
mó la ley. Sin embargo, los descubrimientos de Neptuno, en 1846, y Plutón, en 1930, 
la contradecían, puesto que Neptuno ocupa la órbita que, según la Ley de Bode, de- 
bería ocupar Plutón, como demuestra el programita siguiente. ¿Te atreverías a en- 
mendar a Bode, ofreciendo una explicación mejor? 


El programa 


En la parte superior de la pantalla aparece una lista y el dibujo de los arcos se- 
miorbitales, calculados por la variable «bode» (Z + 4) y, en la parte inferior, los valo- 
res reales obtenidos (READ) de los datos (DATA). La representación ocupa el máxi- 
mo espacio, mediante la rutina DRAW, en la que PI = semicírculo, y la ejecución 
del programa se detiene, apareciendo un mensaje de error, “integer out of range”, 


95 


cuando intenta dibujar el arco final de Plutón, de acuerdo a la ley de Bode. Como se 
puede leer en la parte baja de la pantalla la órbita real de Neptuno tiene un valor in- 
termedio entre los de Urano y Neptuno predichas por la la ley de Bode. El estudio de 
los valores numéricos que se representan confirma esto, como muestra la figura 5.3. 


Nota. Este programa, que demuestra la ley de Bode, se refiere a distancias medias 
del Sol. La mayor parte de las órbitas de los planetas no son perfectamente circu- 
lares, sino ligeramente elípticas o, como en el caso de Plutón, acusadamente elíp- 
tica, lo que origina que la órbita de éste se introduzca en la de Neptuno. El 
programa “Órbita de Plutón”, que presentamos en este mismo capítulo, explica 
plenamente esta situación. 


a 
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“Orbitas de Kepler” 


Entre 1609 y 1618, Johannes Kepler estableció que el movimiento de los planetas 
y, de hecho, de todos los cuerpos del universo que giren en torno a otros, se ajusta a 
tres leyes: 


1) La órbita del planeta es una elipse, en uno de cuyos focos se encuentra el Sol. 


. 2) El planeta se desplaza a lo largo de su órbita a una velocidad tal, que su radio 


vector (línea que une el centro del planeta con el del Sol) barre una misma área en 
un mismo período de tiempo (véanse figuras 5.4 y 5.5). 


equinoccio de 


invierno 


Figura 5.4. Primera y segunda leyes del movimiento de los planetas de Kepler. Un planeta (PE) represen- 

tados con una órbita altamente elíptica para mayor claridad, barre un área idéntica (sombreada) en un mis- 

mo período de tiempo, ya que su velocidad se modifica constantemente, de acuerdo a la distancia que le se- 
pare del Sol en cada momento. 


97 


equinoccio de 


invierno 


Figura 5.5. Tercera ley del movimiento de los planetas de Kepler. El área barrida por diferentes planetas 

(sombreado), en un intervalo igual de tiempo, es proporcional al radio de su órbita. En el sistema solar 

simplificado de la figura, en el que las órbitas están espaciadas regularmente, vemos que cuando el planeta 

P1 ha barrido un cuadrante completo, P2 ha cubierto sólo un 0,35 (1/4/23) del cuadrante y P3 un 0,19 
(1/4 33) del cuadrante. 


3) El cuadrado del período orbitral y el cubo de la distancia media al Sol son pro- 
porcionales. 


El siguiente programa demuestra las dos primeras leyes del Movimiento planetario 
de Kepler, señalando el espaciamiento entre las posiciones individuales trazadas en un 
período de tiempo idéntico. 

El punto que representa al planeta que recorre su órbita, “acelera”? su marcha, en 
comparación con los valores de su velocidad inicial que se han introducido, cuando 
pasa por las cercanías del Sol (que se representa mediante un pequeño círculo en el 
centro de la pantalla), particularmente cuando la órbita adquiere una forma elíptica 
más acusada (cuando su excentricidad es mayor). Véase figura 5.6. 

Los valores introducidos son completamente arbitrarios. Cuanto mayor es un 
valor, más circular es la Órbita, y cuanto menor sea, más excéntrica será la órbita y 
más cerca pasará el planeta del Sol. La posición trazada en primer lugar señala el 
punto de afelio, es decir, el más lejano al Sol de toda la órbita. El punto de la órbita 
más cercano al Sol se llama perihelio. 
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Figura 5.6. Órbita elíptica producida por valores pequeños de velocidad. 


Cuando se introduce un dato > 12 comienzan a ocurrir, en los resultados trazados, 
cosas extrañas que no tienen nada que ver con las leyes de Kepler, sino con los defec- 
tos del programa, y que se han mantenido deliberadamente para demostrar tres efec- 
tos que experimenta todo cuerpo que gira en torno a, o que pasa cerca de un planeta 
de mayor masa. a 

Una entrada igual a 12 originará la rotación de toda la órbita, de manera que la 
posición de afelio (y también la de perihelio, aunque esta afirmación no es obvia) gi- 
rará en el sentido de las agujas de un reloj. Este efecto imita la rotación orbital de 
cualquier planeta, aunque, incluso en el caso de Mercurio, el planeta más cercano al 
Sol, y el que gira a mayor velocidad, sólo puede detectarse a lo largo de cientos de 
recorridos orbitales completos (véase figura 5.7). 

Una entrada igual a 10 provocará la captura del cuerpo por una órbita menor y 
más rápida. De aquí la creencia de que muchos cometas han quedado cautivos en 
órbitas menores al pasar lo bastante cerca, para que el fenómeno se produzca, del 
planeta Júpiter, cuya masa es muy grande y, en menor grado, de Saturno. Obviamen- 
te, esto supone la existencia de un tercer cuerpo, que no se contiene en nuestro pro- 
grama, aunque sigue siendo interesante que demostremos un efecto de esta clase (véa- 
se figura 5.8). 

Una. entrada igual o menor que 7, hará que el planeta pase tan cerca del Sol que 
sea expelido del sistema solar, mediante lo que se ha dado en llamar ““efecto-honda”. 
Esto, de haber ocurrido, habría contecido hace billones de años. En la actualidad no 
hay sitio para ningún planeta rebelde, con lo que ninguno de ellos está expuesto a esta 
ignominiosa expulsión. Los científicos se sirven de este efecto para enviar ingenios es- 
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Figura 5.7. Un valor de 12 produce la rotación de la órbita, con lo que el afelio se 
desplaza en sentido horario. 


Figura 5.8. Una velocidad excesivamente baja producirá la caída del objeto a otra 
órbitra más rápida y pequeña. 


paciales de un planeta al más cercano a él, en una especie de partida de billar espacial, 
aprovechándose un poco del campo gravitatorio del planeta anfitrión para proporcio- 
nar al ingenio altísimas velocidades, imposibles de alcanzar mediante la energía que 
impulsa a los cohetes lanzados desde la Tierra. 


Explicación 


¿Por qué produce tales efectos este programa? Simplemente porque no calcula 
con suficiente precisión la posición del planeta cuando se encuentra cercano al Sol, y 
los minutos que sobran, a causa del error, se suman al proceso siguiente, lo que pro- 
duce la representación de estos efectos. La situación empeora, ya que en el perihelio, 
las coordenadas, verticales, al trazarse, pasan a tomar valores de positivos a negati- 
vos. Considerándolo todo, estamos ante un caso típico de la obtención de un buen re- 
sultado a partir de premisas potencialmente incorrectas, incluso aunque no seamos 
buenos matemáticos. 


Modificación del programa 


Una vez que hayas hecho que el ordenador procese el programa varias veces, trata 
de modificar algunas variables, de una en una. La variable a modificar más importan- 
te es la que controla los intervalos de paso (STEP) en el bucle FOR/NEXT para pro- 
cesar el programa. Si se hace menor, el trazado de la órbita será más preciso, particu- 
larmente en la posición de perihelio. En cambio, el trazado se hará con una increíble 
lentitud cuando el planeta está cerca del afelio. Dejo a tu elección el valor de la mo- 
dificación. 

Este programa se utiliza varias veces, en distintas partes de esta obra, generalmen- 
te con modificaciones de cara a un propósito particular. 


| | 

O E | (00 
| 10 h "Orbitas de Kepler"; 

h | 
y 1 | RAS 

O 20 INEUT "velocidad(% a 30)"3w AE 
| 40 FRINT wi CIRCLE 128,83, 

) HO LET OE Br LET q1000000 
eE 60 1 2=gq/1000% LET y=0 19d 
TO ALET id LET yo 
! 80 LET rex LET s=y ' 

O SO LET mcr LET yeytin O 
100 60 SUB 200 
110 LET s=erg LET LET ueh/2 ' 

' ¡ 
un 120 LET v=vwro*él a Wade ¡ O 
' 
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130 
140 
150 
160 
170 
180 
200 
220 
240 
500 
05 
210 
OO 
9990 


60 SUB 300 


FOR t=0 TO 400 STEP h 
LET yuy+htw 


LET xexthrev a 
60 SUE 200 
LET v=y+heb 
GO SURE 3002: NEXT ti STOF 
LET exxxryiyor LET d=SQk 
LET a=-qg/er LET bua*x/d 

LET c=ary/ds RETURN 

FLOT x/10+128, y/10+85 

ERINT AT 20,04 Mies lg? ye ly 
RETURN 

REM A A 


LET w=uthtc 


SAVE 


"kepler" 


Focos de la órbita 


En el programa anterior, sobre las órbitas de Kepler, dijimos que el Sol ocupaba 
uno de los focos de la elipse orbital. ¿Cuál es el otro foco, o foco ““vacio””, como se le 
llama? Simplemente, está a la misma distancia del afelio (punto de la órbita más leja- 
no al Sol) que el Sol del perihelio (punto de la Órbita más cercano al Sol). 

Si has introducido ya el programa de las órbitas de Kepler, sólo necesitas efectuar 
una pequeña modificación en la línea 300 del programa. Esta versión hará que apa- 
rezca la posición del segundo foco (foco orbital vacio) una vez que se haya trazado la 
mitad de la órbita y se conozca la posición del perihelio (Fig. 5.9). 
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Figura 5.9. Localización del segundo foco (foco orbital vacío) de la órbita elíptica 
de un cuerpo celeste a partir de su velocidad. 
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Este programa es importante para demostrar que, mediante él, el Spectrum traza 
una Órbita elíptica auténtica. Los resultados se pueden calibrar mediante un test senci- 
llo. Haz que el ordenador ejecute el programa y mide, bien en la pantalla del televisor 
o en una copia en papel si dispones de una impresora ZX, la longitud del triángulo 
que forman los dos focos de la órbita con un punto cualquiera de la misma, que es 
idéntica para cualquier punto de la órbita que se aleja. 

Este procedimiento es idéntico, aunque inverso, al que utilizan los jardineros para 
trazar un. parterre perfectamente ovalado. Ellos utilizan dos estacas (los focos de 
nuestra elipse) a las que atan una cuerda y, tensándola (con lo que forman un triángu- 
lo como el nuestro), trazan el óvalo. Es obvio que la longitud de la cuerda es constan- 
te, como deberían serlo tus medidas. 


po] 
10 
11 
iW) 

W 
40 


A 
FERINT "Foco orbital vacio"; 
A 
INFUT "velocidad(13 —- 30)U5 


ERINTO" "sw AT a 15504103 


CIRCLE 128,85,2 


49 
O 
60 
70 
80 
90 
100 
110 
120 
130 
140 


HEN 


REÍ AREA A DI A 


LET h=,4íi LET g=ic 

LET x=g/1000: LET y=0 

LET i=09/41 LET v=0 

LETO pump, s=yi LET 2=0 
ET mi LET yse=y+tikm 
GO SUE 200 

LET xr LET ys LET o=h/2 
LET vevero*rbi LET wewytorxca 
GO SUB 300 

FOR t=0 TO we? STEF h 

LET mtv: LET ye=y+hx*w 
G0 SUB 200 

LET v=veh*ebi LET w=wthx*c 
GO SUB 300: NEXT ti STOF 
LET e=xéxtyrya LET d=SOR 
ET arz-g/er LET buatx/d 
LET cuary/ds RETURN 

PLOT x/10+1:28, y/10+05 


E IN 
REM dibuja el toco 2 


E A 
IE 20 AND yi=-50 AND «Ez TT 
PLOT 228+x/10,859: FRINT AT 
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10, (2204/10) /B-1 "42" 
ASCO LET zx 

330 RETURN 
A E 
9990 SAVE "Focoz" 


“Orbita de un cometa?” 


Este programa es la segunda variación del de las “*Órbitas de Kepler””. Ahora nos 
ocupamos de órbitas muy excéntricas que generalmente se atribuyen a cometas y ca- 
denas de meteoritos. Se reconoce generalmente que los meteoritos que aparecen con 
regularidad (a modo de estrellas fugaces en la atmósfera de la Tierra), como la lluvia 
de meteoritos ““Perseida”” que aparece anualmente en agosto, son restos de cometas 
esparcidos a lo largo de sus órbitas. 

El programa permite introducir valores desde 0,5 (una órbita altamente excéntri- 
ca, esencialmente dos líneas paralelas) a 17 (un óvalo completo), que ocupa toda la 
pantalla del Spectrum (véase la figura 5.10). Para evitar que se cometan errores (que 
pueden ser interesantes) al calcular la posición de un cometa cercano al Sol, se traza 
sólo media órbita. La otra media es simple reflejo de la superior. Las líneas 200 y 210 
hacen que se representen sus respectivas mitades. La ejecución.del programa se detie- 
ne cuando “*y”” toma valores negativos (una vez que se ha calculado la mitad de la 
órbita). 

El programa demuestra con gran efectividad la segunda ley de Kepler sobre el mo- 
vimiento orbital de los planetas (véase el programa de órbitas keplerianas), en el 
modo en que un cometa está la mayor parte del tiempo moviéndose muy despacio 
mientras se halla distante al Sol y sólo ““estalla”” su actividad en el llamado **corredor 
perihelio””. 
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Figura 5.10. Órbita dibujada por el programa “Órbita de cometas”. 
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100 60 SUE 160 

LOREM At add 3 2 E A 
1106 FOR te) TO 300 

120 LET ocurra LET yeythkw 
130 60 SUE 160 

140 LET veyrhiéba LET w=yth*ec 
130 60 SUB 190: NEXT to STOF 
160 LET e=xxt+yXya LET d=SQdR e 
cameg/er LET buarx/cd 
cuaty/di RETURN 

IR yo THEN STOP 

II 


FLOT AGD y UA 

EXE aa DE DD DD E E E e 
RETURN 

TN ES 
SAVE "Orbitacom" 


o. o. 0.0.0. 


El cometa Halley 


Edmund Halley (1656-1742) no descubrió este cometa, pero fue el primero en 
constatar que los datos de las órbitas de los brillantes cometas observados en 1531, 
1607 y 1682 eran prácticamente idénticos y que se trataba de un mismo objeto que 
reaparecía en el cielo cada 75 años, aproximadamente. 

Actualmente, se puede seguir la pista al cometa Halley hasta el año 611 antes de 
Cristo, mediante los registros chinos, pero la referencia más famosa de todas en la 
historia europea es, quizá, su descripción en el Bayeux Tapestry de 1066, donde figu- 
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ra con la inscripción de INTIMIRANT STELLA. Desde el reinado de Harold de In- 
glaterra se han registrado todas las apariciones del cometa, algo inusual si tenemos en 
cuenta que la vida de los cometas se mide más en centenares que en miles de años. 


El programa 


Este programa describe una órbita completa del cometa Halley, a partir de 1948, 
año en el que el cometa comenzó su viaje actual hacia la Tierra y el Sol, desde más 
allá de la órbita de Neptuno. El cometa regresará a su posición de afelio en torno al 
año 2023. Pasará por el perihelio el 10 de febrero de 1986, punto donde el programa 
hace una corta pausa (véase la figura 5.11). El cometa se podrá contemplar con unos 
simples prismáticos, debajo de las Pléyades, a mediados de noviembre de 1985. 
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Figura 5.11. Trayectoria del cometa Halley en un período de 75 años. La posición 
más cercana al Sol será en febrero de 1986. 


Este programa es una variación del programa ““Orbita de un cometa””, pero opera 
con una órbita específica producida por la línea LETw=4.5. También se calcula y 
trata aquí sólo una mitad de las órbitas —el viaje hacia nosotros—, pero cada posi- 
ción de coordenadas “*x”” e ““y”” es introducida mediante dos tablas de variables de ca- 
dena x(t) e y(t), las cuales se utilizan luego en un segundo bucle FOR/NEXT para tra- 
zar el viaje de regreso del cometa a la profundidad de los espacio estelares. 

Para conseguir que el trazado se realice a la misma velocidad que en el primer bu- 
cle, hay que añadir la instrucción PAUSE a este segundo bucle FOR/NEXT. Esto 
pone de manifiesto la rapidez con que el Spectrum puede dibujar puntos una vez que 
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se ha calculado y guardado en una tabla la posición actual. Véase lo que sucede cuan- 
do se pulsa una tecla cualquiera para cancelar la instrucción PAUSE. 


Imagen de la pantalla 


En la parte superior de la pantalla se anota el año en curso. Para mayor claridad, 
el cometa se traza en un punto de color diferente para el viaje de ida y el de vuelta 
(BORDER 0: PAPER 0: INK 9). 
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Órbita de Plutón 


El 21 de enero de 1979, Plutón renunció, en favor de Neptuno, al dudoso honor 
de ser el planeta más lejano al Sol, al cruzar, hacia el interior, la órbita de Neptuno. 
En marzo de 1999, recuperará el título al cruzar de nuevo, esta vez hacia afuera, la 
órbita del otro planeta. 

No es probable que se produzca una colisión entre los dos planetas, porque la ór- 
bita de Plutón está inclinada 17% respecto al plano general de los planetas, incluido 
Neptuno. Durante este período de 20 años, Plutón pasará a 10 UA (10 Unidades As- 
tronómicas = 10 x distancia de la Tierra al Sol) sobre la órbita de Neptuno, un espa- 
cio casi lo suficientemente grande como para contener la Órbita completa del planeta 
gigante Júpiter. Los planetas Neptuno y Plutón están suficientemente separados entre 
sí. La última vez que Neptuno sobrepasó a Plutón fue en los años 1890, cuando am- 
bos se movían pesadamente a lo largo de sus órbitas, en períodos de 165 y 248 años, 
respectivamente. 


Representación de la pantalla 


El programa siguiente traza, a escala, la posiciones relativas de Neptuno y Plutón 
desde los años 1880 al 2128, período en que Plutón recorre su órbita. Se ha trazado 
un plano y una sección de las órbitas superpuestas, con un pequeño círculo relampa- 
gueante en el centro, que representa la órbita de la tierra (en cuyo centro está, natu- 
ralmente, el Sol). Los años transcurridos se registran en la parte superior derecha de 
la pantalla y Plutón se ha trazado con un punto verde (con un tono más oscuro en 
monocromía), sobre un fondo negro (PAPER 0: BORDER 0:), a fin de que la imagen 
sea más clara. 

El proceso de representación hace una breve pausa para imprimir seis observa- 
ciones significativas, sobre datos específicos concernientes al progreso de los dos: 
planetas. 


Órbita elíptica de Plutón 


Como la órbita de Neptuno es la excentricidad más baja de todos los planetas, de 
manera que constituye un círculo casi perfecto, los requerimientos de su programa 
son mínimos: su órbita se calcula y traza sólo mediante la línea 340, en la que se utili- 
za la variable “*f”” para incrementar la posición trazada (PLOT). 

En cambio, para calcular la órbita elíptica de Plutón, que es la más excéntrica de 
los planetas mayores, con un valor de 0,25, se utiliza la mayor parte del programa 
desde la linea 110. Plutón se mueve más rápidamente cuando está más cercano al Sol 
(espaciando más las posiciones trazadas), pero como esta representación se realiza a 
escala y solapa la órbita de Neptuno, puede ser que no resalte lo suficiente. 

Las líneas 300 y 310, mediante cuyas instrucciones se traza el avance de Plutón a 
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lo largo de su órbita, son casi idénticas, pues sólo difieren en la expresión al final de 
la línea, que en la 310 es: 


“...y/200 + 10” 
donde /200 comprime efectivamente el eje ““y” (vertical) 200 veces, de manera que la 


segunda elipse orbital que se traza queda reducida a una representación casi de canto, 
en la parte inferior de la pantalla. 
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Figura 5.12. Órbitas de Plutón y Neptuno desde dos puntos de vista. 


Experimentos con la representación de Plutón 


Una vez que hayas procesado varias veces el programa, utilizando la copia de la 
pantalla (Fig. 5.12) para comprobar que funciona correctamente, salvaguárdalo en 
una cinta. Trata ahora de cambiar algunas variables para ver el efecto que se produ- 
ce. Estas enmiendas alterarán invariablemente la precisión de la representación. De 
ahí que primero haya de salvaguardarse el programa. 

Para conseguir el efecto descrito, pueden examinarse las siguientes variables: 


“*xx”” coordenadas *““x”” (horizontal) del Sol 
“*yy”” coordenadas *“y”” (vertical) del Sol 
**f”? posición y pasos incrementados para trazar Neptuno (líneas 110 y 340) 
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““h”” valor STEP para el bucle principal FOR/NEXT 
a bucle principal FOR/NEXT comenzando con un valor 0 (comienzo 3 horas) 
““w?” excentricidad relativa de la órbita de Plutón. 


Los valores 13 (líneas 300 y 310) y 55 Ml 340) controlan el radio de cada una de 
las órbitas de los planetas. : 


E A 
10 REM Orbita de Pluton 
11 REM Ae IE 
13 RESTORE lóz FOR f=USkK "n" T 
O USK "n%+72 READ ni, PORKE £,mioN 
EXT f3 REMeoe 
16 DATA 36,0,120,68,068,08,68,0 
ZO LET trOs BORDER O: FAFER Os 
INE Yi CELS o: 60 SUE 400 
0 PRENT INE Si"Orbita de Flu 
kon" 
40 PRINT AT 11,0i"plan"yTAB 16 
“sol "¿ TAR 237 INE Si"pluton" 
30 PRINTOAT 15,143 "neptuno" 
600 PFRINT **?**"yista"”* "de pertfi 
qe 


FO ALE co00=1402 ET ar 
60 PLOT ooc33,0: DRAW 110,20,. 
da EPA -110,-2 Ay a 
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[54d REM orbita ileeratiini 

E e Ei E 1 e $ E Je 
90 CIRCLE FLASH lixx,yy,2 

100 CIRCLE FLASH 1lixx,10,2 

IN A E 
103 REM orbita elipt. de Pluton 
109 a FERINA AFI MER E AA dl 
1160 md LET dd, 

NAO) Ph, Ex LET 

130 LET o:=g/1000+5 LEr > 8) 

140 i=h/4a LET ve=0 

130 LE mx LET suy 

1680 LET >= rivas LET y yet do 
170 0 SUE 2460 

180 LET ori LET yes LET 0=h/% 
190 LET vevto*wbi LET w=ewrok*kc 
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0.0. 0.9.0 6. o >= . 0 


200 60 SUE 300 

210 FOR t=0 TO 155 STEF h 

220 LET xml LET yey+hw 
230 60 SUE 260 

AO LET yerbas LETO were: 
do 60 SUB 3 NEXT ti STOF 
260 LET emcrectyaiyas LET d=SGR e 
270 LET ar-g/es LET buarx/d 

280 ET cuary/cdai RETURN 

EE E 15] RE M AS 
2270 REM dibuja orbita de Fluton 
EOL REM e E Ag EI IR A 
00 PLOT INE 43:/L 300 y7/13+yy 
310 PLOT INE 43/1300, y/200+1 
O 

SO LET tt=1880+1NT (tx): ER 
INT AT O, 204 "a ou" pk 

ELO REM Ed EI IE EM IE AE 
2d REM dibuja orbita Neptuno 
a REAL AI IR II 
240 PLOT BRIGHT e PRADOS 
Yy+S IN FA: LET ff, 05 

349 REM rial cian REI 
SO. REM gosub comentarios 
351 FLEIVL HR dE dE 6 DH dE dE A 
60 IF tt=18389 OR tt=1929 OR tt 
ma 1979 OR t1=1999% OR tt=2040 0 t 
t=2127 THEN 60 SUBE 500 

27O RETUEIN 

A EE 
400 REM literales de coment. 
401 REN RA e ED MA JAME JE 
410 LET b$="18689-Meptuno “ocult 
a? Pluton" 

4ZO LET c$="1930-Fluton descubi 
erto" 

4GO LET d$="Fliuton en la orbita 
de Neptuno Ene 1979" 

440 LET es="Fluton deja la orba 
de Neptuno Mar 1999 

430 LET f$="Neptuno completa eu 
orbita: 164 a ae" 

460 LET g$="PLutkon completa ss 


orbitasr 248 a os" 
470 DIM a$(40)3 RETURN 
o 
490 REM coment. condicionales 
ADA REP  E A  H A 
00 PFRINTO BRIGHT 1¿AT 1,0% (bD%$ 
AND tt=1888)+(c% AND tt1929)+(d 
$ AND tt:=1979)+(e$ AND tt=1999)+ 
(£$ AND tt:2040)+(g8 AND ttexl127 
) 
10 FAUSE 2501: FRINT AT 1,Ojatb: 
RETURN 
SGODO REM. RARA A E E A 
9990 SAVE "Fluton" 
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Vértice solar (Apex) 


a 

Aunque te encuentres sentado tranquilamente ante tu Spectrum, tanto tú como la 
habitación os estaréis moviendo rápidamente por el universo, no en una dirección 
dada, constantemente, sino en una serie compleja de curvas y espirales. Estas series 
serían: 


1) Rotación en torno al eje de la Tierra. 

2) Rotación de la Tierra en torno al eje Tierra/Luna. 

3) Rotación de la Tierra en torno al Sol. 

4) Rotación del Sol en torno a la galaxia. 

5) Rotación de la galaxia en torno al Grupo Local de Galaxias (GLG). 
6) Rotación del GLG en torno al Cúmulo de Galaxias Virgo (CGV). 
7) Rotación del CGV en torno al universo. 


La mayor parte de los astrónomos y cosmólogos teorizan de este modo, pero las 
categorías 5 y 6 constituyen una pura especulación y la 7 es imposible, de acuerdo con 
las teorías de la creación universal aceptadas normalmente, que se ajustan a la idea de 
un Big Bang, a partir del cual todos los grupos de galaxias continúan alejándose. Por 
supuesto, si el universo es ““cerrado”” y las galaxias acaban por detenerse, es probable 
que su movimiento se invierta y regresen al punto en que se produjo el Big Bang: ello 
significaría que las galaxias están en órbita en torno a este punto, incluso si su movi- 
miento fuese de ida y vuelta, a lo largo de una línea recta (una órbita como máximo 
solamente). ¡Sería el caso de un proyectil que retorna a la boca del cañón que lo ha 
disparado! 

El programa siguiente, que es menos complicado, combina las categorías 3 y 4 en 
orden a mostrar el movimiento serpenteante de un planeta hacia un punto del firma- 
mento llamado Apex (vértice) solar, cercano a la estrella Vega. Ésta es la dirección en 
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que se mueve el Sol, en el espacio, al recorrer su órbita en torno a nuestra galaxia, a 
una velocidad de 275 km/s. 

La línea recta trazada en la pantalla representa el movimiento del Sol, y la helicoi- 
dal, el del planeta, a cuya Órbita ha de proporcionarse un cierto Eo de inclinación 
para conseguir el efecto. 

. Las hélices trazadas tienen una moderada calidad tridimensional, como puede ver- 
se en el típico ejemplo de la figura 5.13. 
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Figura 5.13. Simulación del movimiento de un planeta a través del espacio. 


Las dos instrucciones INPUT controlan la inclinación de la órbita, 1 para la visión: 
casi de canto y 10 para una visión plana, mientras que la entrada (INPUT) “planeta” 
controla el radio de la órbita. El período que se representa es totalmente arbitrario y 
se controla mediante el radio de la órbita, lo cual indica que la hélice será más fina 
y se trazará en un período de tiempo más corto cuanto menor sea la órbita. 


EORDER 02 FAPER 0: INK 4 
E 
CLS y PRINT "Vertice solar" 


E 


FRINT "Declive:="z 

INPUT "1 a 10,2 PRINT = 
ERINT ¿PES E 

INFLIT 8 = 3%. 01 BRENT aia” 


periodo="4s LET deud*lO0: LET o x=10 
O 


40 FOR $=0 TO FIx*9Y STEF ,1 
43 PRINT AT 2, 244 INT (4) 
JO LET aurea LET pefEfd 
60 FLOTO INE 6 OVER lia,b 
70 PLOT CINK 4iarSIN *d, p+LOS 
edi 
30 NEXT €: STOF, 
A 
99790 SAME "Vertice" 
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Capítulo 6 
Los planetas 


El hombre reconoció en el cielo, desde la Antigúedad, cinco planetas o cuerpos 
errantes: Mercurio, Venus, Marte, Júpiter y Saturno, y atribuyó a cada uno de ellos 
alguna característica, admirable o temible, de la naturaleza humana. Así, dio al 
planeta rojo, Marte, el nombre del dios de la guerra. En un nivel más práctico, los 
hombres sospecharon probablemente que esos mundos eran iguales al suyo, aunque 
estaban demasiado lejanos para que se les pudiera contemplar con claridad. En 1609, 
Galileo, que fue el primero que utilizó un telescopio para realizar observaciones astro- 
nómicas, confirmó estas suposiciones. Actualmente hay en la superficie de Marte 
cámaras de televisión en color controladas remotamente por un ordenador, que se en- 
cuentra en la Tierra, a 200 millones de kilómetros de distancia. Tal es el avance de la 
ciencia. 

Los planetas continúan siendo objetos fascinantes de la familia solar, aunque sa- 
bemos que los ambientes planetarios son más hostiles a la naturaleza humana de lo 
que hubieran podido imaginar nuestros antepasados. 

Los programas que presentamos a continuación tienen varias finalidades, desde 
simular una escena sobre la superficie de Marte, a calcular las posiciones precisas de 
nuestro firmamento en que se pueden encontrar los planetas. Desde la utilización del 
Spectrum para acciones del dibujo asistido por ordenador (CAD, Computer Aided 
Design), hasta evaluar las imágenes planetarias que se ven a través de un pequeño 
telescopio. 


“Viaje al Sistema Solar?” 


¿Te imaginas un viaje a otros mundos a través de tu ordenador? Este programa te 
permite hacer precisamente eso y te capacita para ““contemplar”” el Sistema Solar co- 
mo si lo vieras desde los cielos de cualquier planeta (incluida la Tierra), en cualquier 
fecha. Puedes incluso batir al mítico Ícaro, contemplando a los planetas desde la su- 
perficie del Sol, o quizá desde Júpiter, durante una pasada cercana de una nave 
espacial. 

El programa contiene todos los datos necesarios para procesar las posiciones pla- 
netarias (“longitud eclíptica””), la constelación en que aparece cada uno de los plane- 
tas y la separación angular del Sol (““elongación solar””). Esto se presenta tanto en 
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forma de tabla como de gráficos —la última como una franja panorámica del cielo, 
de 360%, cuyo centro es el Sol. 

El proceso y la representación se realizan en pocos segundos y se han ralentizado 
deliberadamente para hacer más asimilable la información. Se ha hecho buen uso del 
color y la potencialidad gráfica del Spectrum, y se ha incluido una opción para obte- 
ner copia de la representación en pantalla, a través de una impresorá ZX. 


La representación: Mercurio a Neptuno 


La representación inicial ofrece una lista de los planetas y dibuja las órbitas a dos 
escalas. Una, para los ““planetas rocosos””, como la Tierra, de Mercurio a Marte, y 
otra, para los remotos “planetas gaseosos gigantes”, Júpiter a Neptuno. A pesar de 
su simplicidad, el programa es suficientemente preciso como para que puedas identifi- 
car los planetas como si los vieras desde tu jardín, suponiendo que tu puesto de obser- 
vación está en la Tierra y que has elegido una noche clara. Un atlas estelar, como el 
Norton, puede ser útil para encontrar las constelaciones. 

Los planetas remotos, Neptuno, Urano y Plutón, constituyen otras tantas excep- 
ciones, ya que son demasiado mortecinos como para que se les pueda ver sin un teles- 
copio, e incluso entonces no se les puede distinguir de las estrellas. Se ha excluido del 
programa a Plutón, a causa de que su órbita es altamente elíptica y está inclinada 17% 
respecto al plano general de los planetas, llamado la eclíptica. Por tanto, se han adop- 
tado órbitas circulares de 0% de inclinación. Mercurio y Marte son los menos precisos, 
pero sólo si se les considera durante períodos de tiempo largos. 

El resultado de un programa de este tipo se denc:aina ““efemérides”” y puede que 
sea interesante discutir los principios en que se funda. 

Un plano del Sistema Solar podría compararse con un reloj gigante que tenga 
ocho manecillas de distinta longitud. El extremo exterior de cada manecilla representa ' 
a un planeta principal. Cada manecilla barrerá aproximadamente la misma área (zo- 
nas sombreadas de las figuras 5.4 y 5.5 del capítulo anterior), en el mismo intervalo 
de tiempo. Así, cuanto más lejos está un planeta del Sol, más lentamente se mueve y 
más distancia ha de recorrer para completar una órbita. 

Si conoces la posición de los planetas en una época o fecha de referencia, sólo tie- 
nes que dar a las manecillas hacia atrás o hacia adelante para localizar a los planetas 
en cualquier otra fecha (pasada, presente o futura). Si tu punto de observación es el 
Sol, cada planeta aparecerá proyectado sobre el fondo de las constelaciones, es decir, 
signos del zodíaco, en el lugar equivalente a la longitud heliocéntrica (con centro en el 
Sol) del planeta. Si tu punto de observación es un planeta, el ordenador realizará la 
triangulación necesaria para deducir las posiciones corregidas. Comprueba los resul- 
tados que obtengas con la muestra de la representación en la pantalla de la figura 6.1. 
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Figura 6.1.b) Sistema Solar. A la izquierda se representan los planetas rocosos 
(Mercurio, Venus, Tierra y Marte) que se representa como centro del sistema de pla- 
netas gaseosos a la derecha (Júpiter, Saturno, Urano, Neptuno). 


El programa 


Las instrucciones REM muestran la estructura general del programa, con los datos 
manejados a partir de la línea 1000. Este programa se diseñó originalmente para un 
ZX 81 y todavía tengo tendencia a cortar las matrices para los datos. Asegúrate de 
que estas matrices se han introducido correctamente, puesto que el menor error pro- 


ducirá resultados equivocados. 
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En la representación gráfica, un **” simboliza al Sol y hemos asignado a Mercu- 
rio “h* (por Hermes, el nombre griego clásico), con el fin de evitar que se confunda 
con Marte, que es 'm”. La longitud eclíptica proporciona la distancia angular del pla- 
neta desde el primer punto de Aries, es decir, 0% (medido en dirección este desde 
0 a 3609) y la elongación solar da la distancia angular desde el Sol (es decir, 0%). Un 
signo negativo indica que el planeta está a la derecha del Sol. 

Las líneas 420 y 440 separan a los planetas en dos grupos: los que están más cerca 
del Sol (planetas interiores) y los que están más lejos (planetas exteriores) del punto 
de observación elegido, y procesan sus posiciones de acuerdo con ello. Al examinarlo 
se reparará en que, vistos desde la Tierra, los planetas interiores, Mercurio y Venus, 
nunca se distancian mucho del Sol, mientras que todos los planetas exteriores pueden 
encontrarse en cualquier parte 'a lo largo de la eclíptica. A la inversa, vistos desde 
Neptuno, todos los planetas se convierten en interiores y Mercurio, Venus, Tierra y 
Marte nunca están a más de una fracción de grado del Sol —;¡ virtualmente indetecta- 
ble para un habitante de Neptuno! 
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Efemérides planetarias 


La precisión tiene sus grados. La longitud de un programa más preciso qué el an- 
terior de “Efemérides básicas”? puede incrementarse de forma alarmante. Para conse- 
guir que un error de 10” (min) de arco se reduzca a 1? puede que necesitemos un lista- 
do tres veces mayor. Ambos grados de precisión emplazarían a un planeta en el mis- 
mo campo telescópico de un instrumento para aficionados, aumentándolo, digamos, 
50 veces, si se apuntó a las coordenadas celestes correctas. Debería resultar obvio que 
el objeto es un planeta cuando se puede ver el disco con las posibles excepciones de 
Urano y Neptuno y, en este último caso, estas “aparentes estrellas”? se descubren 
fácilmente como planetas, ya que si las observamos atentamente durante varias no- 
ches, detectaremos su movimiento respecto al fondo estelar. Hay que considerar otro 
punto más pertinente. En el caso de que se proporcione al ordenador un listado pro- 
cedente de un libro o una revista, se llegará rápidamente a una situación en que resul- 
ta virtualmente imposible evitar errores ““mecanográficos”” (particularmente cuando 
se trata de fórmulas complejas). Esta es una razón principal para que los listados de 
este libro sean relativamente breves. 


Ocultaciones 


Probablemente, la acción de ocultación (es decir, el paso de la Luna o de un pla- 
neta por delante de una estrella) es de las más interesantes que se puede realizar en uh 
proceso de efemérides. Los astrónomos (generalmente profesionales) pueden necesitar 
procesar las posiciones de cada cuerpo con tal precisión, que deberían también verse 
obligados a introducir el punto preciso de la superficie de la Tierra desde el que se 
realiza la observación, con un margen de un metro, como máximo. Obviamente, un 
programa tal sólo está al alcance de la memoria de un ordenador de propósito general 
o de un miniordenador, más que de un micro como el Spectrum. La perfección sólo 
se puede alcanzar a un precio muy alto, tanto en lo que se refiere al ordenador como 
al nivel de conocimientos matemáticos. : 

Los usuarios del Spectrum que tengan un “Microdrive” no dudarán en refutar lo 
que decimos. Buena suerte a él o a ella. Una gran dedicación y disposición de ánimo 
pueden permitirle ganar la partida. 


Elementos orbitales 


Veamos los casos y el programa siguiente. ¿Qué precisión tiene y dónde están sus 
puntos flacos? Primero, efectuemos una comparación con el programa “Viaje al Sis- 
tema Solar””, que podríamos considerar como relativamente impreciso, con una des- 
viación de sólo un grado, más o menos, de la posición correcta, a causa de que sólo se 
utilizan para el proceso tres parámetros, que son: 
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1) período, en años; 
2) radio de la órbita en UA (Unidades Astronómicas); 
3) posición sobre la órbita en la época determinada (1975.0). 


Como ya decidimos previamente, sólo se utilizan órbitas circulares de inclina- 
ción 0 respecto a cada una de las otras, lo cual no es precisamente el caso que se da. 
Para conseguir mayor precisión deben considerarse tres elementos orbitales adi- 
cionales: 


4) exceptricidad de la órbita; 

5) inclinación respecto a la eclíptica (plano orbital de la Tierra); 

6) localización del nodo de ascensión (punto en el que una órbita inclinada cruza a 
la eclíptica en dirección norte). 


Para este programa particular, la época de la fecha se ha actualizado a 1980.0 
para el punto 3, y se han incluido los puntos 4, 5 y 6. 

A efectos de la excentricidad, este programa sólo resuelve el primer término de la 
ecuación de Kepler, para órbitas elípticas de una excentricidad de alrededor de 0.1. 
Marte, Mercurio y Plutón, en orden ascendente, tienen valores mayores que éstos y, 
por ello, sus posiciones calculadas son más imprecisas que las de otros planetas. 


Búsqueda de planetas 


La intención última de este programa es encontrar los planetas en el cielo, lo que 
no presenta muchos problemas, salvo en el caso de Plutón. De hecho, Plutón es tan 
mortecino en términos estelares —magnitud de 14, aproximadamente— que pocos as- 
trónomos aficionados lo han visto o fotografiado. Para contemplarlo directamente, 
se necesita un telescopio de unos 30 cm de apertura y, para grabarlo en una película 
fotográfica, otro de 10 cm. Así es de escurridizo este objeto. Sin embargo, manten- 
dremos en el programa a Plutón, porque tiene un interés general, a pesar de que su 
posición se calcula con un error típico de 1/2 grado. Mediante exposición fotográfica, 
con una lente telescópica de unos 60 cm de distancia focal y una película de 35 mm, 
quizá podamos “capturar”? a nuestro planeta (seguramente al borde de la imagen) 
cuando apuntamos a la dirección prevista en el programa. Una razón adicional para 
el gran error de Plutón es su paso actual por el perihelio, que resalta efectivamente el 
punto flaco del programa, emplazando al planeta detrás (al oeste) de su verdadera po- 
sición. 


Perturbaciones 


Se ha ignorado en el programa, por razones de brevedad, un factor adicional, lla- 
mado perturbaciones planetarias: la influencia gravitatoria de los planetas entre sí, 
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Figura 6.2. Posiciones de los planetas en el verano de 1984. 


Figura 6.3. Posiciones de los planetas el 1 de enero del año 2000. 
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desplaza a un planeta de su verdadera órbita alrededor del Sol. La inclusión de los 
principales (y masivos) culpables, Júpiter y Saturno, doblaría la longitud del listado, 
sin hacer referencia a los siete planetas restantes. A pesar de estas omisiones, se ha 
mantenido la precisión del programa dentro de unos pocos minutos de AR (tiempo) y 
Dec (arco), especialmente para los planetas que no sean Mercurio y Plutón. 


Ejecución del programa 


Una vez que se ha escrito y ejecutado el programa, deberían comprobarse los re- 
sultados con la muestra de las representaciones en la pantalla de las figuras 6.2 y 6.3. 
Éstas deberían corresponderse precisamente con los resultados mostrados. La anota- 
ción de la AR y la Dec en s (segundos de tiempo) y ”” (segundos de arco), respectiva- 
mente, debería considerarse como la “*guía de la tarta””, puesto que, como he apunta- 
do, el programa no alcanza este nivel de precisión. Sin embargo, no se debe caer en la 
absurda situación de algunos programas de efemérides, que implican tales niveles de 
precisión, que requieren que se introduzcan la hora y el minuto del día, además de la 
fecha, cuando los errores previstos exceden el movimiento de un día del planeta de 
que se trate respecto al fondo estelar. 


Utilización de atlas estelares 


Para que tengan utilización práctica, particularmente si no estás familiarizado con 
el firmamento, deberías trazar las posiciones previstas a partir de un atlas estelar, 
como el Norton o el Tirion. El último está impreso a mayor escala, y es más recomen- 
dable si se utiliza con un telescopio pequeño. 

Para confundir un poco las cosas cada atlas se ha preparado para una época dife- 
rente. Esto significa que las cuadrículas de referencia de la AR y la Dec son ligera- 
mente distintas, lo mismo que las posiciones aparentes, una vez trazadas. En la prác-- 
tica, los errores resultantes del proceso puede que sean mayores que la diferencia de la 
retícula de referencia entre 1950.0 para Norton y 2000.0 para Tirion, y las fechas de 
que se trate. 


Investigando en el pasado 


Una vez que hayas introducido unos cuantos datos actuales, y quizá los hayas co- 
piado mediante la impresora ZX si tienes esa opción, trata de introducir algunos da- 
tos del pasado. La precisión del programa continúa siendo de un grado durante varios 
siglos. Los principales errores se deben al hecho de que no están permitidos los efec- 
tos de las perturbaciones. Si la fecha introducida es anterior al 15 de octubre de 1582, 
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hay que añadirle diez días, para ponerla en línea con el calendario en curso, el Grego- 
riano (véase el capítulo 1). 

El siguiente ejercicio, relativo a fechas históricas, puede ser interesante. Compára- 
lo con el programa para saber dónde estaban algunos planetas en esas fechas, utili- 
zando un atlas estelar como guía. 

Introduce estas fechas: 


1610 enero 10 : Galileo descubre las lunas de Júpiter (fecha aproximada). 

1610 febrero 8 : Urano, desconocido en el campo estelar de Júpiter. 

1659 noviembre 28: Hygens descubre el rastro de Syrtis Major, sobre Marte, a las 
7 pm de esa tarde. Esta observación contribuyó a que el pe- 
ríodo de rotación de Marte se conozca con una precisión de 
1/50 de segundo. 

1781 marzo 13 : Herschel descubre Urano. 

1846 septiembre 23: Galle descubre Neptuno en el lugar predicho por Adams y Le 
Verrier, a partir de perturbaciones detectadas en Urano. 

1930 febrero 10 : Tombaugh descubre Plutón, después de 10 años de inves- 
tigación, 


El hecho de que los acontecimientos acabados de reseñar ocurrieran en Tauro y 
(en el caso de Plutón) en la adyacente Géminis (sólo Neptuno se descubrió en Acua- 
rio) es una pura coincidencia. Es interesante plantearse si Galileo podía haber descu- 
bierto Urano 170 años antes que Herschel, con su relativamente rudimentario telesco- 
pio, como sugieren algunos historiadores. Muchos astrónomos famosos observaron a 
Urano en el período comprendido entre ambos y lo registraron como una estrella. 
Sólo Herschel, que utilizaba un telescopio reflector superior, reconoció inmediata- 
mente un pequeño disco que se movía en las noches siguientes sobre el fondo estelar. 

De este modo, se puede demostrar que el programa puede ser de utilidad práctica 
en la búsqueda de los planetas en el cielo, y encierra algún interés desde el punto de 
vista histórico. Los historiadores han sugerido también que la estrella de Belén podría 
haber sido una de estas tres cosas: 


a) una estrella nueva, o nova; 
b) uncometa;  ' 
Cc) una conjunción de planetas brillantes. 


La hipótesis c) se puede abordar mediante el programa, aunque no está adaptado 
de forma ideal, puesto que encontrar una conjunción conveniente (agrupándolos jun- 
tos) de, al menos, tres planetas brillantes en una fecha dada, es un ejercicio de prueba 
y error. Los cuatro planetas más brillantes son Venus, Marte, Júpiter y Saturno (Jú- 
piter debe ser uno de los candidatos). Pueden introducirse fechas negativas, como 
—1, que representa al año 12 antes de Cristo. 

Una solución mejor a este tipo de problemas consiste en reescribir el programa 
utilizando un bucle FOR/NEXT y/o días suplementarios para imprimir en la pantalla 
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cuando ocurren las conjunciones, comenzando por una fecha determinada —digamos 
1 de enero del 10 antes de Cristo, a 1 de enero del 10 después de Cristo—. Para que 
formen una conjunción deseable, la separación entre dos planetas cualesquiera debe 
reducirse a 1% como máximo. 
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Las lunas de Marte 


En los Viajes de Gulliver, publicados en 1735, el escritor satírico Jonathan Swift 
se rió de los astrónomos contemporáneos suyos, atribuyendo al mítico pueblo de La- 
nuta instrumentos y descubrimientos superiores. Al mismo tiempo, Swift demostró 
que no era mal matemático. 

Entre otras cosas, los habitantes de Lanuta descubrieron *“*dos estrellas menores, o 
satélites, ... girando en torno a Marte... a una distancia de 3 y 5 veces el diámetro del 
planeta... desde el centro del primario... en períodos de 10 y 21 horas, respectiva- 
mente...». + 

Como la duración del “día”? marciano (24 h, 37 m) la había deducido Lassini en 
1666, Swift estaba convencido probablemente de que su ficticio satélite más cercano a 
Marte, podría salir por el oeste y ponerse por el este, unas pocas horas más tarde, 
contemplado desde la superficie de Marte. El segundo satélite, o luna, ficticio, perma- 
necería virtualmente fijo en los cielos marcianos, a causa de que su período orbital se 
correspondía aproximadamente con el período de rotación del planeta. 

En 1877, es decir, 142 años más tarde, el profesor Asaph Hall, utilizando el re- 
fractor de 26 pulgadas del Observatorio. Naval de Washington, DC, hizo realidad la 
ficción de Swift. Descubrió dos lunas de Marte: la más interior gira en torno al plane- 
ta a mayor velocidad de lo que gira éste sobre su eje,. y la más exterior permanece so- 
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bre un paisaje dado durante cerca de tres días marcianos, pasando por todas sus fa- 
ses, desde luna nueva a luna llena, dos veces. El periodo sinódico orbital que se reco- 
noce normalmente es de 7 h, 39 m para Phobos y 30 h, 21 m para Deimos. 


La representación en pantalla 


El programa siguiente muestra la mayor parte de estas características en una 
presentación animada que es correcta, tanto en lo que se refiere a la escala como al 
movimiento relativo de los tres cuerpos. Se ha incorporado a la representación una 
proyección única que muestra los cielos como si se contemplaran desde la superficie 
del Planeta Rojo, junto con las fases cambiantes de cada una de las lunas, cuando gl- 
ran en torno al planeta (véase una representación típica en la figura 6.4). 


Figura 6.4. Marte y sus lunas. Las posiciones de Phobos y Deimos se señalan con 
sus correspondientes sombras. 


El punto de observación está sobre el casquete polar norte de Marte. La luz del sol 
surge de la parte inferior de la pantalla, proyectando la sombra del globo en el espa- 
cio. El planeta gira lentamente sobre su eje, tal como se indica mediante la linea de 
longitud que localiza nuestro puesto de observación sobre la superficie. Phobos y Dei- 
mos giran en torno al planeta, y sus sombras se proyectan alternativamente en el 
espacio. 

En la parte inferior derecha de la pantalla se encuentra la proyección de una por- 
ción reducida de cielo, contemplada desde la superficie del planeta. La vista abarca el 
horizonte sur, de este a oeste, así como al Sol y a las lunas cuando cruzan el cielo, 
todo ello sincronizado con la representación principal. En la proyección de la peque- 
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ña porción de cielo se ha insertado la fase actual de cada una de las lunas, representa- 
das mediante “p” (Phobos) y *d* (Deimos). Inmediatamente encima se indica el tiempo 
transcurrido desde el comienzo de la proyección, en días y horas. 


Phobos y Deimos 


La animación comienza con una puesta de sol en color en el primer día —Phobos 
y Deimos están al sur y, por tanto, centrados en la pequeña proyección del cielo—. 
Phobos se mueve rápidamente hacia la izquierda, alcanzando la rotación del planeta, 
y se pone pronto por el este. Por el contrario, Deimos camina muy lentamente hacia 
el oeste y permanece en el cielo por espacio de 30 horas marcianas, siendo alcanzado 
en el proceso por el Sol. Phobos trazará su arco sobre los cielos muchas veces en los 
días siguientes, pero Deimos sólo volverá a aparecer al final del procesamiento del 
programa. 

Para obtener el máximo rendimiento de las varias representaciones que interac- 
túan entre sí, es conveniente procesar el programa varias veces, preferentemente en 
color. Veamos algunos consejos interesantes. 

Una luna aparece como un disco iluminado plenamente, o luna llena, cuando tra- 
za su Órbita en la parte superior de la pantalla. En cambio, cuando está en la parte 
inferior de la pantalla, entre el Sol y Marte, se dice que está en fase de luna nueva 
porque, efectivamente, carece de iluminación si se la contempla desde Marte, y des- 
aparece brevemente. Si en el transcurso del día marciano se produce una luna nueva, 
la luna en cuestión pasará brevemente cerca del Sol, como se pone de manifiesto en la 
proyección de la pequeña porción del cielo. En el programa se define la instrucción 
UDG CHR$ de CHR$ 144 a CHR$ 159, para mostrar las fases de las lunas en 
16 pasos. 

El tiempo de proceso del programa se controla mediante el bucle FOR/NEXT n 
en la línea 280 y procesa cinco días. PI es igual a 10 arcos semicirculares de rotación 
planetaria, programada a intervalos de media hora, mediante la instrucción STEP 
P1/24. Comprueba el programa con valores diferentes a 10 y 24 en esta línea. Para 
una ejecución de más de cinco días, Phobos no puede sincronizarse. 

Se puede cambiar también el tamaño de Marte y de las dos órbitas mediante la va- 
riable de escala de la línea 110. Normalmente, esto se realiza de manera que se con- 
tenga la órbita de Deimos en la pantalla del Spectrum. Las variables 'mars”, “ph” y 
“de” son el diámetro de marte y los radios orbitales de Phobos y Deimos, respectiva- 
mente, en kilómetros, y no deberían modificarse. 
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Satélites de Júpiter 


En 1609, el italiano Galileo Galilei utilizó su recién construido telescopio (inventa- 
do un año antes por el holandés Han Lippershey) para estudiar los cielos. Sus comu- 
nicaciones asombraron al mundo civilizado, pero escandalizaron a la Iglesia. 

El enfrentamiento más grave con las autoridades se debía a un descubrimiento en 
particular: ““El planeta Júpiter tiene cuatro lunas que giran en torno a él...””, lo que 
probaba que no todos los cuerpos celestes giraban en torno a la Tierra y que, por con- 
siguiente, la Tierra (especialmente el Vaticano) no era el centro del Universo. Italia 
quedó aislada de las controversias científicas durante muchas décadas, mientras que 
la ciencia europea alcanzaba su punto álgido. Hoy, todo el mundo puede experimen- 
tar la emoción de descubrir las lunas de Júpiter con unos modestos primáticos, y este 
programa te ayudará a hacerlo. 

El programa, que pertenece al tipo de los de efemérides, es lo suficientemente pre- 
ciso, a pesar de su modesta longitud, como para identificar y nombrar las cuatro 
lunas para cualesquiera fecha y hora que elijas. Las predicciones son virtualmente 
idénticas a las publicadas en Sky and Telescope y en el BAA Handbook, que son 
autoridades en este tipo de trabajos. 


Trazado de las lunas 


El programa proporciona una buena representación y exposición en pantalla, so- 
bre todo si es en color. Una vez que se ha escrito y puesto en marcha el programa, se 
te solicita que introduzcas la fecha elegida. Tienes la opción de ejecutar y representar 
las posiciones de las lunas en esa fecha a intervalos de dos horas, o a la medianoche 
de cada día (0 h tiempo universal), durante un período de 12 días. La presentación se 
hace de tal forma (Figs. 6.5 y 6.6), que puedes ver a las distintas lunas ““agitándose de 
acá para allá”? sobre el planeta Júpiter, fijo en la línea central de la representación de 
la pantalla. 

El movimiento bihorario de las lunas es muy corto, pero notable, particularmente 
en lo que se refiere a las lunas interiores lo y Europa. En comparación con él, el mo- 
vimiento diario de las lunas (pulsando *d”) es muy manifiesto y, para ayudarte a iden- 
tificar cada luna, la llamada ““configuración”” se representa para cada predicción en 
forma de una serie de números, más la letra **J””, por Júpiter. Los números represen- 
tan el orden de las lunas de Júpiter, 1 = lo, 2 = Europa, etc. Claro que, desde la Tie- 
rra, para la que este programa procesa la posición aparente de cada una de las lunas, 
el orden de la configuración puede parecer embrollado, 13234, lo que se debe a la 
contemplación del sistema Joviano de canto. Una contemplación a vista de pájaro 
nos pondría de manifiesto a todas las lunas trazando círculos perfectos en torno a 
Júpiter y manteniendo su orden de 1, 2, 3, 4 desde el planeta. 
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Figura 6.5. Cálculo y representación gráfica de las posiciones de los satélites de 
Júpiter en un día señalado, con un incremento de dos horas. 
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Figura 6.6. Representación gráfica de las posiciones de los satélites de Júpiter, a 
medianoche, durante un período de 12 días. La variación de la posición es más 
pronunciada. 
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Búsqueda de Júpiter en el cielo 


El planeta Júpiter se puede ver normalmente bajo, en la parte suroccidental del 
firmamento, desde Gran Bretaña y el resto del hemisferio norte, después del anoche- 
cer, y todas las noches de los veranos y otoños, durante varios años, puede contem- 
plarse mientras desciende en el sur (la situación es aún más favorable en el hemisferio 
sur). Es la “estrella”? que más brilla en esa región celeste, y unos prismáticos potentes 
o un telescopio pequeño permitirán contemplar al planeta en forma de un pequeño 
disco y a sus lunas en forma de puntos luminosos que cambian de posición cada hora p 
y diariamente, al mismo tiempo que en tu programa. ¿Por qué, si la noche que elijas 
para utilizar este programa está nublada y tienes una impresora ZX, no haces una co- 
pia —ya que el programa tiene la opción de efectuarla— y la conservas para cuando 
el día esté despejado? 


O REN AA A A A 

10 KEM Satelites de Jupiter 

A A RS 

15 RESTORE lós FOR f=USkK "n" T 
O USE "n +7: READ ni FOKE finioN 
EXT €: REM e e 

16 DATA 56,0,120,68,068,68,08,0 

ZO BORDER O: FAFER O2 INE 9%ií E 
LS 

ZO DIM (5D) DIM 83D: DIM xs 
(50) 

40 DEF O EFN 2 (1)=i300* INT. (1/36 
O) 

SO LET té=x"1234J "4 LET 58:00 

60 LET ri=F1/180 
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80 REM titulos/entrada datos 
Bd EEN Ae e E Ad A EE E 
90 PRINTO FAFER GiAT 1,1 "Sate 
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100 INFUT "A 0 "yr 
110 FRINT 4 PRINTO" Ao Moya 
120 LET d$=5TR$ yr 
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160 LET déxd$+" "+ms% 

170 INFUT "Dias "idy:s 1F dyi1 0 
R dy231d THEN 60 TO 170 

180 FRINT " Dia = "¡dy 

190 FRINT *" Feriodo de interval 
o == "” 5 

200 INFUT "horas o diasth/d)"ia 
+ a 
210 1F as="p" THEN. FRINT "hrs 

220 1 asis" THEN. FRINT "dia 
Fig? 

20 FRINT $03 FLASH 13% Fecha € 
orrecta (s/n)'"a FAUSE O: IF INEE 
Yé$="n" THEN —(G0 TO 10 

AO LET dé=d$+" "eSTRE dy 

Bo) 4 pe] 15 15 M He Ko DE 26 PAD DE DE 2 A DE Pe DE E 2D 2 

2390 REM Piga los titulos 

E EAS 

260 ELS 

27d PRINTO FAFER SAT 1,13 "Sate 
lites Galileanos de Jupiter" 

280 FRINTO INE 44T 3,15 "Config 
wracions"*" 1islo ssGanimedes 
My! 2iEuropa 4iCalisto" 

290 FRINTO FAPER 3 TINE 14AT 3, 
20 dar 0 "AND LEN d$2110 

200 INE 61 FRINT AT 7,1i"Confg" 

210 PRINT AT 7,27 CO UThr" AND a 
$="pU)+*O! dia" AND as" h")a INE 

dd 

ad PERINTO INE 35 AT 7,145 "sur"; 
AT 14,04 "WO AT 14,314 "E"54T 21,1 
dilnorte" 


RN E E 


ad TE ms= THEN 60 TO 370 
300 LET mentir LET yey-1 

270 LET f=INT (y/100)-INT- (y/40 
0) 

TO REÍ At a Mt E A EEN DEN 


80 REM calculo del dia Juliano 
A TEE 
390 LET a= INT (63. 239% 0144712) ) 
“ALGO ZO 

400 LET b=INT. (C507* (med) 7/12 
) ; 
A TEA 
410 REM bucle principal 
O A E 
alo LET hr=O0: FOR c=:0 TO 12 
AGO LET d=dyebhr darle, E 
A E 
440 REM calcida pos. de la luna 
AMLO REM AE dd did dE IA A E 
430 LET O M=FN 2 (238, 4764, 9850800% 
$) 

4SO LETON=EN 2 (223, 284, OO 
*cd) 

A7ZO LET O J=FN 2 (221, 047+, 9025179 
*d) ] 

480 LET as=l., 92x*SIN (Meri). 02% 
SIN (2xMeri) 

490 LET bb. 537%*SIN. (Neri, lá 
TESIN. CNrer 1d) 

300 LET E=xJtaa-=bb 

3510 LET delta=SOR (28,07-10,406 
COS (eri) 

320 LET psisASN (SIN (EKx*ri)/del 
ta)/rl 

330 LET ud=FEN 2 (84. DNQ0OTFZO, AO 
863% (d-delta/173)+psibb) 

340 LET ui=EFN (41, 5019+*101, 291 
os2*(derdelta/173)+psi-bb) 

3390 LET u3sEN 2 CLOS, 977430 2 40 
109% (dudelta/173)+psi"bb) 

360 LET A=EN (176. 3086+21,487 
9302* (adsdelta/173)+psilbi 

370 ET ox (10)=3,906*SIN- Gléri 
580 LET 3 (2)=9, 297858 1N- (Url) 
390 LET x()=14,979895IN- (uerd) 
600 LET x (4)=26, 364518. Cudér do 
610 LET x(3)=0 

IN 
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a20 REM Imprime Jupiter y luna 
E 
630 PAFER 1 

640 PRINT AT c+, 1x8 AT c+8, 16 
O INE 60" 


660 1 a$="h" THEN. FRINT (UP 
AND hiri210)3hr 

470 1 ais THEN FRINT (000 
AND dyi210)5dy 

46380 FOR n=l TO 4: PLOT. OVER 13 
1314, e 0/2 +10 CAB NEXT on 
690 FOR 0=1 TO 5 

700 LET max=x(1)5 LET t=1 

710 FOR n= TOS 

TEO 1 Gm) marx THEN LET marxz=x 
ima LET ten 

730 NEXT on 

740 LET s$res$+t$ (tt) LET om 0h) 


730 NEXT o 

760 FRINT  FAFER 13AT c+8,1i5%2 
LET sg="" 

770 PLOT 8,104-cx8: DRAW 239,0 

780 1F a$í22"h" THEN LET dy=dy+ 


790 1 as=p" THEN LET hreshire2 
Su REEF «lgrós NEXT E 

809 PL dd E e 0 ME 
810 REM menu-COFIA O EJECUTA 
IN E 
B20 PRINT +03" € para COFIA, + 
para EJECUTAR": FAUSE O 

20 IF INEEYS="c" THEN LEFRINT 
¿ COPY 4 INFUT ""s 60 TO 820 
340 RUN 


E A 


YO SAVE “Batrdup" LINE 4 


O 


== 
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Los anillos de Saturno 


Saturno, que es el más espléndido de los planetas, marcaba la frontera del sistema 
solar conocido hasta 1781. Es un mundo frío, para el que el Sol es solamente una bri- 
llante estrella en su cielo. Mas su lejanía no ha detenido al hombre en su intento de 
obtener una visión más cercana, mediante el éxito alcanzado por la'nave espacial Vo- 
yager que, en agosto de 1981, envió imágenes más claras de las que hubiera sido posi- 
ble obtener jamás mediante telescopios terrestres, desde una distancia de casi 1.600 
millones de kilómetros. 

El hermoso anillo del planeta ha impresionado siempre a quienes lo contemplaban 
a través del telescopio, ya fueran aficionados o profesionales. Este programa, y los 
dos que le siguen, se han diseñado con el fin de satisfacer intereses diferentes y de- 
mostrar el potencial gráfico del Spectrum. 

Los anillos de Saturno representan posiblemente la más precisa simulación de 
Saturno alcanzada jamás en un ordenador doméstico. Es más, posiblemente sea supe- 
rior a muchos trabajos realizados en ordenadores de propósito general, si exceptua- 
mos los del Laboratorio Planetario de la NASA. 

Presenta una imagen llena a toda pantalla en la que se han suprimido todas las lí- 
neas ocultas y se han dibujado a escala, con precisión, el globo y el sistema de anillos. 
El usuario puede girar el planeta y el sistema de anillos según un ángulo cualquiera 
hasta 90%. Si la entrada es de 0%, el planeta se dibuja como si se viera directamente so- 
bre su ecuador, con los anillos de canto. Si la entrada es de 90%, tendremos una vista 
polar, con el sistema de anillos rodeando completamente al planeta. Puedes seleccio- 
nar un aspecto nórdico o sureño para el giro. Introduciendo *s' obtendremos la parte 
inferior de los anillos y el ecuador y el polo que resulta visible bajo este aspecto. 

La secuencia para dibujar el planeta es la siguiente: 


1) comprueba el tamaño de la imagen; se adapta la escala si la inclinación es > 43%; 

2) dibuja el globo, corrigiendo el achatamiento aparente según la indicación; 

3) dibuja el ecuador, corrigiéndolo según la inclinación; 

4) dibuja el sistema de anillos semitransparente; 

5) trazar el borde más cercano de los anillos sobre el globo, según un aspec- 
to N/S; 

6) dibuja la División de Cassini a través del sistema de anillos: en el sentido de las 
agujas del reloj para el aspecto norte; 

7) borra la División de Cassini si está destrás del planeta; 

8) traza la posición del polo visible, corrigiendo el achatamiento aparente según la 
inclinación. 


Utilización de la orden SCREENS 


El programa contiene una opción (pulsa *x”) para copiar el dibujo completo me- 
diante la impresora ZX, utilizando COPY y otra para guardar la imagen en una cinta 
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mediante la orden SCREENS. Para lo último sólo es necesario presionar “s” y poner 
en marcha el cassette para guardar el dibujo creado. El ángulo de inclinación queda 
guardado automáticamente en el nombre del fichero, es decir, sat -23,4. Para trazar 
de nuevo el dibujo, introducir LOAD “*sat-23.4””, SCREENS y el Spectrum buscarán 
y representarán la imagen adecuada a partir de la cinta. 


Saturno y las simulaciones mediante ordenador 


A diferencia de algunas presentaciones mediante ordenador de Saturno uniforma- 
das, el globo no es circular —a menos que lo contemplemos sobre los polos— y, por 
ello, no podemos utilizar la orden CIRCLE para dibujar el planeta. Esta forma oval 
(o, por decirlo correctamente, de esferoide achatado) se debe a la rapidez con que Sa- 
turno gira sobre su eje (10 h, 14 min, día de Saturno), que origina la protuberancia 
ecuatorial y el achatamiento polar. 

El Spectrum dibuja el globo y el sistema de anillos mediante la orden de trazado 
(PLOT) utilizando una rutina rápida de elipse. En el caso del globo, se aplica progre- 
sivamente la reducción del achatamiento del 10 por 100 a 0* (círculo completo), mo- 
dificando la inclinación desde O a 90%. De modo similar, se colocan correctamente la 
posición del ecuador y del polo visible de acuerdo a la inclinación del planeta y a la 
forma en que se presenta el achatamiento. 

Cuando se le contempla desde la Tierra, la apariencia del planeta se limita a una 
inclinación máxima de 26,73% (la inclinación del eje de Saturno respecto a su órbita 
alrededor del Sol), tanto en dirección norte como en dirección sur, más o menos 
0,49%, dependiendo de las posiciones relativas de la Tierra y de Saturno en sus órbitas 
en ese momento. Por ello, cualquier inclinación que exceda de 28% representará un 
punto de vista diferente del de la Tierra. 


El programa 


Las instrucciones REM muestran la estructura general del programa. En el caso de 
que se dibujen el globo y los anillos, sólo hay que calcular el contorno de un cuadran- 
te de la elipse y reflejarlo en los tres cuadrantes restantes, dibujando secuencialmente 
cada uno de los cuadrantes. Una rutina como ésta asegura que el dibujo se realiza 
rápidamente con un mínimo de cálculos. En el caso de la rutina utilizada para dibujar 
la División de Cassini en el sistema de anillos, el programa traza una elipse completa, 
y verás que resulta lento, aunque satisfactorio. 


e] EN E M Ue lo Jr «30 «Jo De «Pr «9 190 DE DE DR O JE JO AE E A E dd 


10 REM Aánillos de Saturno 
E E 
SO LET scrli BORDER Ox FAFER O 
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zo INE 61 ELS 
0 PRINT "Saturno "GCOHES 1273 
40 INFUT "DeclivelO" CHESS 1305 
"a SO" CHRS 1303 ")",2 
30 1F 24% THEN LET sca=,ó66 
60 INPUT "Declive N o Síin/s)"i 
ES 
70 LET 0b= Md A AO 
80 LET 06=,89%+ (0 11*0b) 
390 1F aé="s" THEN LET z=—z 
100 PFRINT TAR 20 "Declive=s"iziC 
HRS 130 
110 LET e=1/S1N (06. 1+2)/180*F1) 
115 LET p=C0S ((.,1+2)/180*FI):3 
1 ass! THEN LET pu-p 
120 LET xecbo/di LET ye58 
10 LET reñdrscas LET huldobrsca 
140 60 SUB 360 
1409 EEPL ee data DN IEEE dE 
150 REN dibuja los anillos 
160 FOR f£=0 TO 1.358 STEF ,01l 
170 LET c=INT (SIN F4x*h) 
180 LET d= INT (COS he) 
190 PLOT +, y+d 
200 DRAW 3, “dí 
PLOT e=scyyed 
DRAW 1/3, “d/3 
a PLOT OVER lira, yd 
240 DRAW c0/3,d/3 
200 DRAW OVER 110,1 
260 PLOT OVER Llix+cas,y-=d 
DRAM <c/3, dí 
DRAWN OVER 110,1 
Ao fe. ED UB 4bO 
REM mente COPIAO/CONT/FANT. 
210 PFRINT RO": para COFIA, pa 
ra CONTinuar" 
SO PRINT lis para grabar Us 
at "GSTRS UU" FASE O 
230 1F INEEYS="5" THEN. COFY os 
INPUT? “Us ED a A 
240 1 INEEYS$="8" THEN INELITO" 


"Da SAVE "sat "+STR$ ¿SCREENS o: 
NPUT "": GD TO 10 
AO RUN 
AO REA A E IE AE AA 
260 REM dibuja globo achatado 
370 FOR £=0 TO 1,420 STEF ,019 
380 LET a=INT (SIN f*%r) 
390 LET b=INT (COS F*rXcoe) 
400 FLOT x+a,y+bi: DRAW O, “hx2 
410 PLOT xua,yt+tbi DRAN O, “bz 
AGO NEXT 4 
ALDO REN e E ME E dE IE HA 
430 REM dibuja el ecuador 
440 FOR +¿=EIx*,5 TO FIx*1,.53 STEF 
ali PLOT OVER lix+SIN fr, y+C20S 
fr/es NEXT €: RETURN 
ABR FREE AM ME A 
430 REM dibuja division Cassini 
460 LET cdez, dl 
470 FOR 0 TO Fl STEF ,O%3p E 
LOT OVER 1ix+SIN fr*cd, y rlOS + 
kr*cd/es: DRAW OVER 132,02 NEXT 
+ 
AUTO RED II RI IE Ae 
480 REM borra detras del globo 
483 IF ABS 2:26 THEN 60 TO 370 
490 FOR £=06 TO 1,4% STEF ,0l 
300 LET a=INT (SIN F3%r) 
510 LET b=INT (005 fro) 
3520 IF abs" THEN LET bermb 
330 FLOT x+a,yi DRAW 0,b 
340 FLOT xa, y DRANWN Gb 
550 NEXT 4 
O REA ARI A A 
360 REM polo visible 
370 PLOT. OVER lx, y+r*pxoe 
3380 RETURN 
PIDO MER AE a E DE AA 
99790 SAVE "saturno" 


0.0.0.0 o $0 om. 


OOOO 


O 
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Saturno 


Figura 6.7. Dibujo de Saturno obtenido mediante el programa “Anillos de Sa- 
turno”. 


Anillos de Saturno-2 


Este programa es similar al anterior, aunque reducido al mínimo, a fin de que 
produzca un contorno del planeta y su sistema de anillos. Constituye un ejemplo de 
cómo un programa puede ser breve y, al mismo tiempo, satisfactorio. La figura 6.8 es 
copia de la pantalla. 


Ana Lilas de Saturno. 


Figura 6.8. Representación gráfica de Saturno con sus anillos. 
(Anillos de Saturno-2). 
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El programa 


Con este programa, puedes simular la apariencia de Saturno y su sistema de ani- 
llos, para cualquier ángulo de inclinación que se elija y que esté comprendido entre 
0 y 90%. Cuando se introduce 0, el planeta se dibuja como si se le viera directamente 
sobre el ecuador, con los anillos de canto. Cuando la entrada es de 90%, se representa 
una visión polar, con el sistema de anillos rodeando al planeta. Cuando se le contem- 
pla desde la Tierra, la apariencia queda limitada desde O a 26,73% de inclinación, tan- 
to en dirección norte como sur, más o menos 0,49%, según las posiciones relativas de 
la Tierra y Saturno, en sus órbitas, en ese momento. 

Para simplificar las cosas, no se ha intentado borrar el sistema de anillos cuando 
pasa por detrás del planeta, y dejo a tu elección decidir qué porción de los anillos 
queda más cerca de ti. El Spectrum influirá en tu decisión inicial, al dibujar primero 
la sección más baja del globo. 

El Spectrum dibuja el globo y el sistema de anillos mediante la orden de trazado 
PLOT, utilizando un programa de elipse modificado (veáse el capítulo 9). En el caso 
del globo, se aplica progresivamente la reducción del achatamiento del 10 a 0 por 100 
(círculo completo), mediante la variación de la inclinación de O a 90%. 


DERE EI EA M6 A A 

"Anillos de Saturno"; 

11. REP eee de IE E A A 

30 INFLUT "declivetO"3CHRs 130: 
MR GOR OCHRAS 13003", 2 

PRIMT ",Declive="pziCHRS$ 13 


ET ob=1,.1*2/100 

LET 2=1/SIN CO dz) /180*F1) 
LEFT xm128 LET y=08 

LET rl FE 

GO SUE 180 
AS 
REM dibuja los anillos 
II A 
POR n=1 TU 1.6 STEP .1 

FOR f£=0 TO Fx STEF ,0%3 
ET rs INTO CS IN ae) 

LET E CAOS fah/z) 

PLOT tex, yeoy/n 

MEXT $3 NEXT rus STOP 

15d 1 Y] aa 
REM globo achatado., Saturno 
II 


180 FOR £=0 TO Plxza STEF FI/100 
190 PLOT INTO (:<+SIN 4*Xr), INT (y 
+20S f*e*(.89+(.,11*0b))) 

200 NEXT €: RETURN 
GOO REM Add 22 MIE III EA 
9990 SAVE "Anillos" 


Dibujo de Saturno 


Quienes se dedican a observar a Saturno, preparan generalmente un esbozo del 
planeta y del sistema de anillos, a fin de utilizarlo en la observación telescópica. El as- 
pecto más difícil del bosquejo del planeta consiste en conseguir la geometría correcta 
del anillo, de manera que se despilfarra una gran cantidad de tiempo precioso para la 
observación telescópica intentando dibujar estas elipses tan sutiles, que constituyen 
un reto para los delineantes más cualificados. Quien no esté familiarizado con la ob- 
servación planetaria, puede creer que el programa que presentamos a continuación 
ahorrará la necesidad de ir al telescopio, pero no es así. Hay que registrar muchas 
sombras sutiles, degradaciones de culor y divisiones en los anillos. Por ello, el progra- 
ma constituye sólo una ayuda, y resulta muy divertido incluso para los que no son 
muy entusiastas del telescopio. 

Este programa, basado en la rutina de los anilllos de Saturno, se ha concebido 
para que, utilizando la impresora ZX, realice dibujos cuyo eje mayor del sistema de 
anillos mida unos 10 cm. Como quiera que la impresora ZX no puede abarcar toda 
esta anchura, el borde izquierdo del sistema de anillos aparecerá doblado. 

El planeta se puede girar hasta 27,22% y el programa acepta entradas de O a 28". 
Los valores negativos, que son innecesarios, puesto que el globo es transparente, no 
deben introducirse. Se ha aplicado cuidadosamente la corrección para el achatamien- 
to del globo, de acuerdo con la inclinación, y el sistema de anillos representa el borde 
externo del anillo A (elipse más grande) y el interior del B (elipse más corta), respecti- 
vamente. La figura 6.9 es una copia típica del programa. 


Diseño asistido por ordenador 


Si quieres tener un registro permanente del aspecto de Saturno a través de todas 
sus fases posibles durante un período orbital de 29 años y medio, cubriendo la incli- 
nación axial de O a 28%, efectúa las pequeñas modificaciones siguientes en el progra- 
ma, de manera que el Spectrum con impresora las realice automáticamente. Necesita- 
ríamos unos dos metros de papel de la impresora ZX para las 29 copias. 

Corrige la línea 170 a: 


170 NEXT f: NEXT n: COPY: CLS: LETz =z + 1: GOTO 40 
Ahora teclea: 


RUN ENTER 0 ENTER 
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pres 
Saturno. o ER Li asa Í d 
: ñ 


om 


- 
Figura 6.9. Representación gráfica de Saturno dada por el programa, puede utili- 
zarse para equipararlo a la observación telescópica. 


y tu Spectrum realizará, sin esfuerzo, un fino trabajo de CAD (Computer Aided 
Design). El ordenador, dejado a sus propios mecanismos, tarda casi cinco minutos en 
trazar una de las imágenes, antes de copiarlas. El tiempo de trazado puede reducirse a 
casi 90 segundos por imagen si “sólo se dibujan los anillos interior y exterior, lo que 
originará que las posiciones trazadas estén más separadas entre sí. Para ello, hay que 
modificar los STEP en los dos bucles FOR/NEXT de las líneas 120 y 130, del siguien- 
te modo: 


120...STEP .5 
130...STEP .04 


Si no te gusta que la parte izquierda del sistema de anillos se doble, puedes cambiar la 
escala de toda la imagen, de manera que quepa en la pantalla, cambiando las variables 
de las líneas 80 y 90: 


x = 255/2 r = 60*,9 h = 140*,9 


PERQUNCT "Saturno. y 
EE Ad IRE dd NE dE 
Sd INFAJT "Declive O" EHRS 1303 
ce CHE 
1E z a 0 TO 20 
50 LET ob=1.1*2/100 


240 FOR +£=F1%.3 TO F1x*1,.353 STEF 
nl PLOT ox +SIN fee, y+008 fxr/e 
AO NEXT £í RETURN 

E ES 
9990 SAVE "DivSaturno"” 


on 60 ERINT "Declives="3x30HR$ 130 e 
Ol 70 LET exl/SIN ((,1+2)/180*F1) e 
a 30 LET x=11% LET y=88 a 

DO 90 LET r=b60: LET h=140 odo 
A ES 2 Do 
O 100 60 SUB 190 O 
O “a 109 EKEM ARERÑIBEREARENESEADS, La he 
Dn 110 REMO dibuja los anillos a 
¡ O 111 HEM rre de IE E dE E JE E A JE | 0) 
Cn 120 FOR mel TO 1,6 STEF po 
| od, TES cet Era E ) 
Mn UA] 130 FOR £=0 TO PFlxz Ss ¡ A 
o Sd 140 LET morINT (BIN febo de | 
150 LET cy=INT (COS f*h/) E 
a 160 PLOT tsx/n, y+ayZn e 
da 170 NEXT €£i NEXT ni STOF 
a e 179 EEN dede e RM e de dE dE dd ale , 
Cd 180 REM dibuja globo achatado a 
di 181 KEEP 444 ee de de a E 2d dE dE a Ea 
de 190 FLOT 0, yz DRAW 255,0 Ea 
0 E 200 PLOT x,10: DRAW 0,1395 10 
cda 210 FOR £:0 TO FlI*2 STER 02 
lO 220 ELOT INT G<+SIN xr), INT (y 
A +008 ferx*(.89+(11*0b)))5 NEXT € A 
a A O RO 
e QQ REM dibuja el ecuador 
O o O RIOS 
pe ab 
RES Na] 
y e) 
an 
1 
| 
! 
pido, 


Planetas a través de un telescopio 


a) ¿Cómo se ve de grande Júpiter con unos prismáticos de 10 aumentos? 
b) ¿Son Marte y Mercurio tan pequeños, a veces, como Urano, cuando se les con- 
templa a través del telescopio? 


c) ¿Con qué rango de tamaños aparece Venus cuando está más cerca y cuando está 
más lejos? 


Este programa responde a estas cuestiones, y nos da una impresión del tamaño 
relativo de todos los planetas cuando se les observa a través de cualquier telescopio 
cuyo aumento sea superior a 300. En la representación de la pantalla se incluyen el ta- 
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maño máximo y mínimo de cada planeta, en segundos de arco, y un disco a escala, de 
acuerdo con los aumentos introducidos. La figura 6.10 es una copia de la pantalla. 


Planeta 
Mercianiod. 
LE MLS 

Harta 

do a 


Sa turna 


IN 


AA 


Figura 6.10. Tamaño relativo de los planetas en un telescopio con 120 aumentos. 


La representación se hace sobre una pantalla negra (BORDER 0: PAPER 0; 
INK 9) y el contorno de cada planeta se colorea mediante una orden condicional INK 
en la línea 110, de acuerdo con los colores reales de los respectivos planetas: Marte es 
rojo, Júpiter y Saturno, amarillos, etc. A Júpiter se le han añadido dos cinturones 
ecuatoriales y a Saturno un sistema de anillos, de canto. 


El programa 


La exposición del programa es sencilla y clara, y contiene en la línea 90 los diáme- 
tros máximo y mínimo de los planetas, registrados en la línea 40. Ambos se leen 
(READ) en la línea 110, en la que a) es la variable del diámetro máximo, y b) la del 
mínimo de cada uno de los planetas. Para trazar los siete planetas se emplea un bucle 
FOR/NEXT. 

Las órdenes CIRCLE de las líneas 130 y 140 producen el contorno de cada plane- 
ta, una vez que el ordenador ha leído los datos, modificados según la magnitud que se 
le haya facilitado, mediante la variable c). Los cinturones y anillos de Júpiter y Satur- 
no se trazan y dibujan a sus escalas correctas, mediante las líneas 160 a 250. La línea 
40 contiene las instrucciones para imprimir en la pantalla los nombres de los planetas. 
A. menudo, resulta más económico utilizar esta combinación que las instrucciones 
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DATA/READ. Los tres apóstrofes (?””) que hay entre los nombres de los planetas tie- 
nen la finalidad de ““imprimir”” dos líneas en blanco debajo de cada urio de los 
nombres. 


Interpretación de los resultados 


Para que la información sea significativa, han de interpretarse los resultados. El 
programa indica los tamaños máximos y mínimo con que pueden aparecer los plane- 
tas cuando se les contempla a través de un telescopio. 

El diámetro mínimo se aplica cuando un planeta está a su máxima distancia de la 
Tierra, en la que se llama ““conjunción superior”” (cuando el Sol está entre el planeta 
y nosotros). En tales ocasiones, el planeta no puede observarse, debido a su proximi- 
dad aparente al Sol (esta retricción no es válida necesariamente para los radioastróno- 
mos, que pueden comunicarse con la nave Vikingo y recibir datos de ella, desde la su- 
perficie de Marte, durante estos períodos de tiempo, pues las señales de radio se 
transmiten con un grado más o menos de la posición del Sol). 


Cómo realizar una mejor observación 


Todos los planetas de Marte a Neptuno aparecen a su mayor tamaño y se ven me- 
jor cuando están al sur y a medianoche. La órbita de Marte es hasta tal punto excén- 
trica que cuando está en oposición no se le aprecia diámetro aparente. Mercurio y Ve- 
nus están permanentemente más cerca del Sol que la Tierra y, a veces, puede ocurrir 
que pasen frente al Sol, es lo que se llama conjunción inferior. En esos casos, estos 
dos planetas son inobservables debido a su proximidad al Sol, incluso cuando se en- 
cuentran en su posición más cercana a la Tierra y su diámetro aparente es mayor. Las 
siluetas de Mercurio y Venus se pueden contemplar cuando se proyectan sobre el dis- 
co solar, pero sólo con un equipamiento especial. 

En general, los planetas suelen verse con un tamaño intermedio entre el máximo y 
el mínimo. El rango de tamaños mayor corresponde a Venus, el planeta más cercano 
a la Tierra, y, el menor, a Neptuno, el más remoto. 
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"Saturno"??? "Uranio" "7? "Nepia 
no" 

SO INFUT "aumentos Xica 

60 IF c5300 THEN 560 TO 50 

7ÓO FRINTO FAFER EAT 0,207 "XU5 


80 REM datos=diam. plan. "arco 

SO DATA 4,7113, 11,6%. Da da o O 
A A A: A 

100 FOR n= TO 7 

110 READ ajybí INE S+CL AND no: 
AND nit) (E AND on=5) 

120 FRINT AT nx, Ea 2CHRS 243 TA 
E SED CHRS 4 

LED REA A A 

130 CIRCLE dí INT. (170-0243, INT 

CA DOO) 

140 CIRCLE e, INT” (170-242, INT 

(c/300) 

30 NEXT n 

E E 

130 REM Cinturones dup/Anillos 
Sarurno : 

160 LET r=c/i8p LET x= 

170 LET ri=c/118 LETO 

1580 FLOT d, 73-c/d 

190 DRAW r,0s DRAN “x,.Of DERAW O 
01/50 DRAN x,0 

200 PLOT dd, 506 

210 DRAW r,y02 DRAN ==, 0 

CO FLOT e, 30 

230 DRAW ri, Or DRAN x1,0 

220 PLOT e, 7d 

230 DRAW r1,O2 DRAN x1l,0%2 DRAW 
Qra/ Or DRAN 1,0 

A 

260 PRINT RG: FLASH lic para c 
ontinuar'"i FAUSE Os RUN 
GOO REM IRA A A 
7970 SAVE "DiscoplanDo" 
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Dibujo del globo mediante puntos 


Desde que se inventó el telescopio y se descubrió que los planetas son mundos de 
formas similares a las de nuestra Tierra, los astrónomos han divivido cada uno de los 
globos planetarios de acuerdo a las familiares líneas de longitud y latitud, con un polo 
norte, otro sur y una línea ecuatorial. De los planetas gigantes gaseosos, Júpiter, Sa- 
turno, Urano y Neptuno, sólo en el caso de Júpiter y, en menor grado, de Saturno, 
encierra un interés práctico un sistema tal. En Urano y Neptuno no se han detectado 
más marcas claras que las bandas de las regiones polares y ecuatorial, debido a su ex- 
trema lejanía. Saturno pone de manifiesto en muy raras ocasiones, algunas marcas 
identificables, originadas en el disco por la rotación del planeta. De estas considera- 
ciones hemos de excluir al relativamente cercano Júpiter, que suele estar a una distan- 
cia comprendida entre cuatro y seis veces la del Sol, y sobre cuyo disco puede detec- 
tarse una gran riqueza de detalles con telescopios de aficionados, aunque tales detalles 
constituyen un problema. 

Al ser Júpiter un mundo gaseoso que gira muy rápidamente, sólo se nos revela 
como referencia su compleja nube superior, en movimiento constante. Como la rota- 
ción de la zona ecuatorial es más rápida que la de las latitudes más altas, además, la 
esfera planetaria se distorsiona hasta tomar una forma de esferoide achatada por los 
polos. Y así, aunque con la potencialidad gráfica del Spectrum, que incluso puede te- 
ner en cuenta las formas achatadas de Júpiter y Saturno, es posible trazar un sistema 
reticular de longitud y latitud, no es eso lo que pretende el programa. Es mejor hacer 
algo más práctico. 


Marte, Mercurio y la Luna 


Los cuatro planetas interiores, Mercurio, Venus, la Tierra y Marte, tienen superfi- 
cies rocosas, y sólo Venus, que dispone de un manto permanente de densas nubes, se 
resiste a revelarla. Al grupo de cuatro debería añadirse la Luna, como si fuera un pla- 
neta gemelo de la Tierra. Todos pueden diseccionarse en parcelas, mediante las líneas 
de longitud y de latitud y someterse a una proyección global, pero los dos que encie- 
rran un interés práctico para los astrónomos aficionados son la Luna —obviamente— 
y Marte, único planeta —si exceptuamos a la Tierra— en el que el cambio de las esta- 
ciones y las marcas producidas por la rotación sobre la superficie del disco pueden 
tener utilidad para una observación telescópica casera. Los dos programas siguientes 
son particularmente útiles para convertir la proyección plana Mercator normal de, 
digamos, el mapa de Marte, en un globo —lo que hacemos para reconocer más fácil- 
mente las características, especialmente cuando se representa en las regiones del lim- 
bo, es decir, adyacentes al borde del disco. 


El programa 


Para dibujar un globo mediante puntos separados por intervalos de 10% de longi- 
tud y latitud, hemos de utilizar la rutina corta de trazado de un globo mediante pun- 
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tos. La figura 6.11 es una copia de la pantalla. La escala de la copia proporciona, a 
través de la impresora ZX, un disco de 5 cm de diámetro, que es el tamaño que los 
astrónomos aficionados utilizan para hacer bosquejos de esos planetas, mientras los 
observan al telescopio. 


Rios 


Figura 6.11. Globo planetario dibujado utilizando puntos con un intervalo de 10% 
en la latitud y en la longitud. 


El programa emplea dos bucles FOR/NEXT para trazar cada uno de los puntos 
—el bucle *z” para las líneas de longitud (verticales) y el 'n” para las de latitud (hori- 
zontales)—. Los resultados que se obtienen en la pantalla y en la copiadora ZX son 
precisos y exactos. Los STEPS en los bucles FOR/NEXT controlan la separación de 
los puntos de la forma siguiente: 


FOR z = .001 TO 91 STEP 10 


en la que la expresión STEP se refiere a cada 10% de longitud. Repara en que si bien 
estos STEPs están precisamente a intervalos de 10%, el valor real devuelto tiene el va- 
lor secuencial de: 


.001, 10.001, 20.001, 30.001, 40.001, etc. 


La adición de 001* (1/1.000 de grado, o 3.6”? —segundos— de arco) no produce efec- 
tos visibles en la posición trazada, pero asegura que el programa no se interrumpirá 
cuando tratemos de evaluar el seno (SIN) de 0%, que es infinito. El bucle 'n” toma la 
forma: 


FOR n = 0 TO PI*2 STEP 1/r*10 (líneas de latitud) 


en donde PI*2 origina un círculo completo y STEP1/r*10 es igual a un intervalo 
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STEP de 0.175 desde (1/(180/PD)*10, produciendo el espaciamiento de 10? requerido 
para la latitud. 

Las líneas de la latitud son paralelas al ecuador, mientras que las líneas curvas de 
longitud se originan en los polos. La variable *c” de la línea 60 controla el último tra- 
zado y la curvatura se produce mediante la línea 90. 


Simulación de Júpiter 


La simulación de Júpiter puede hacerse con una pequeña enmienda al programa: 
el globo achatado por los polos del planeta se consigue mediante la expansión de las 
regiones ecuatoriales, manteniendo las dimensiones polares o verticales. Modifica la 
línea siguiente: 


90 LET b = COSn*80/c*1.08 


el último valor de la expresión, es decir,-*1.08 es el que produce la necesaria ex- 
pansión. 


E 
REM Globo de puntos 

LOREM] ARRE Id E dE 
BORDER O: FAFER Or INE Bi C 


20 PRINTO FAFER 1li'"Globo de pu 
ntos a intervalos de 10"C0HRS 43% 


20 LET r=180/F1 
40 FOR 2,001 TO 91 STEF 10 
JO PRINT INT 24CHR$ 130 
60 LET c=l/SIN (2/51) 
70 FOR n=0 TO FlIx2 STEF 1/10 
80 LET a=SIN nx*x80 
90 LET b=208 n:80/ 
100 PLOT INE 43 INT” (137+b), INT 
(Búa) 
LLO NEXT na NEXT STO 
IN AI EA 
9990 SAVE "globopunt," 


““Proyección del globo”” 


Este programa dibuja un globo dividido mediante líneas de longitud y latitud, en 
lugar de dividirlo mediante simples puntos, como era el caso del programa de trazado 
de un globo mediante puntos. 
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El programa no es tan preciso como la rutina anterior, porque utiliza la orden de 
dibujo (DRAW) del Spectrum que, si bien proporciona una ejecución rápida, no pue- 
de producir las líneas elípticas apropiadas, sino simples arcos. Los errores principales 
se producen en los bordes del disco y en las. regiones polares. A pesar de todo, la si- 
mulación produce un efecto satisfactorio y el usuario puede optar por mostrar una 
visión ecuatorial o polar. Aquélla debe girarse 12% en dirección norte o sur. Las figu- 
ras 6.12 y 6.13 son copias típicas de la pantalla del Spectrum. Las instrucciones REM 
muestran la estructura general del programa. 


E Laa DN “La eo 


Figura 6.12. Dibujo del globo desde un punto de vista polar o ecuatorial. 
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DO REM A A E A E A 
10 REM Proyeccion del Globo 
11 REM e e dE A de HE A 
20 REM *titulos iniciales 
230 BORDER 5: PAFER Si CLS : 

PRINT— PAPER 43 "Froyeccion del q 

lobo" 

40 LET a=1481 LET b=80: CIRCLE 
abrb 

E 

30 REM calcula la perspectiva 

Ed EIA A A DIE AE A A 

60 DIM (9): DIM y (9) 

70 FOR n=1 TO 91: READ y (nm) 

80 LET x (ni=063* (1, 24*ATN (EIL/ 
130*n*10,.3)7)2 NEXT on 

O DATA 79,73,70,64,36,47436, 2 
La RESTORE 

100 REM seleccion 

IN 

110 INFUT "polar O ecuatorial  ( 
po e)"iasr 60 TO (af="gpe")*1 20+( 
ably)270 

A A 

120 REM dibuja arcos 

II 

130 FRINT "Amax. declive=12"4 0H 

R$ 12303 "0" "ecuatorial "; 

133 INFUT "declivel=s)"iki IF A 

ES k212 THEN (60 TO 135 

140 PRINTOR3CHR$ 130: LET k=k7/1 

4 

130 FOR n=0 TO 36 STEF 2 
160 LET f=n-18: LET g=2.71 

LET h=gx*aTN (E1/180% 47,3) 

FLOT aj,Oz DRAW 0,bx*2,h 

MEX 1 

II 

200 REM dibuja lineas datitid 

A II E 

210 PLOT arbybi DRAW bx*2,G,k 


O 2 OU. O DD... O. O 


SD. =>30 20 


O 


O 


220 FOR n=1 TO 9% LET cy (rn) 
230 FLOT atlux (LO). bex Cm) 
240 DRAW cX2, 0, k 

20 FLOT atliux COn) bt (m) 

260 DRAW c*2,0,k NEXT ni STOP | 

269 REM IEA A dE e . 

270 REM dibuja lineas longitud i 

AI 

280 PRINT "polar" 

290 FOR n=0 TO 72 STEF 2 / 

00 LET d=n/36x*F IT: LET O ) 

di LET yy=bx*COS dd 

21Ó PLOT a,bi DRAW z,yyi NEXT on 
a 

| 

| 

! 

l 

| 


e 


05 1N 


REM dibuja anillos latitud 
FOR n= TO 9 
CIRCLE aybyx in) NEXT on 


STOF . | 
A EEE 
1 


o o 0.0. 


So o. o. 


70GO 


SAVE "Globo" LINE 
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Capitulo 7 
Sistemas estelares 


Nuestro Sol es una estrella bonita, de tamaño medio y sin interés, para como son 
las cosas del universo. Tanto la evolución como la supervivencia de las formas vivien- 
tes de nuestro planeta, han dependido de su constante potencia luminosa y calorífica 
desde hace cientos de millones de años, en que no se ha producido ninguna explosión 
solar. Además, el Sol es bastante pequeño en términos estelares, lo que constituye una 
característica favorable a su longevidad. Las estrellas mayores suelen consumir su 
energía con el doble de rapidez. * 

Los astrónomos emplean una escala llamada magnitud absoluta para calibrar la 
verdadera luminosidad de las estrellas, considerando que todas se encuentran a la 
misma distancia de la Tierra. Esta escala opera a una distancia de 10 ““parsecs””, unos 
33 años luz. 

A esta distancia, nuestro Sol sólo se podría contemplar, a simple vista, en una no- 
che oscura y nítida, con una magnitud aparente de 4,7 (en el programa dedicado a la 
magnitud estelar del capítulo 8 se explica la magnitud aparente). Como contraste, la 
estrella Rigel, en Orión, tendría una magnitud de —7 a esta distancia, que eclipsaría 
incluso al planeta Venus, en el mejor de los casos. Para demotrar que nuestro Sol só- 
lo es de mediana *“categoría””, consideremos que, en la zona opuesta de esta escala, la 
estrella más cercana a la Tierra, con excepción del Sol, es Próxima Centauri, una 
enana roja; contemplándola a 10 ““parsecs””, su brillantez normal disminuiría de 
10,7 a 15,0; 

Nuestro Sol es también bastante conservador, al no tener una estrella compañera 
que orbite a su alrededor, aunque, en compensación, tiene una bonita familia de pla- 
netas. Dos estrellas no se excluirían mutuamente, como pudiera suponerse, pero el 
hecho de compartir los campos gravitatorios entre dos estrellas haría estragos en las 
distancias orbitales y propiciaría un ambiente inhabitable. Los siguientes programitas 
permiten que dos a tres estrellas giren unas alrededor de otras. Éste es el tipo de obje- 
tos que atrae la atención de los astrónomos, más que estrellas solitarias de mag- 
nitud 4,7. 


Órbitas de sistemas triestelares 


El programa que presentamos a continuación permite colocar a dos estrellas com- 
pañeras en órbita alrededor de otra estrella. El diámetro de estas tres estrellas se pue- 
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de seleccionar a voluntad y deberá ser distinto para cada una. La órbita en sí puede 
experimentar una desviación angular, desde 0% (para el punto de mira vertical) has- 
ta 90% (para el punto de mira horizontal). Las estrellas con diámetros bastante gran- 
des (datos de entrada de 10 a 20) y pequeña inclinación orbital (datos de entrada de 
0 a 20), presentan un aspecto orbital particularmente interesante, de que, en este 
caso, las estrellas pueden eclipsarse mutuamente. 

El programa utiliza dos bucles FOR/NEXT, el *f”” para calcular la órbita, y el 
“*n” para dibujar la órbita de la estrella. El bucle *'n”” utiliza la instrucción de 
OVER 0 para producir la ilusión de movimiento a lo hno de la órbita, mediante la 
aparición y desaparición de la estrella correspondiente. Todas las estrellas dejan una 
estela detrás de sí, mediante las órdenes de trazado (PLOT) de las líneas 130 y 140. La 
estrella central se dibuja solamente una vez mediante el contenido ue la línea 90, y 
permanece fija durante la representación. 


El programa 


La base de este programa es una versión más del programa de elipses. Si se omitie- 
se la variable **z”” de la línea 120 (junto con el signo /), las órbitas serían circulares, 
puesto que dicha variable, por medio de las líneas 30 y 40, hace que el círculo se com- 
prima hasta formar una elipse, de acuerdo con el valor que se haya dado al decli- 
ve. El máximo radio de la órbita se proporciona mediante la variable ““h””, hasta un 
valor de 60. Esto se hace para evitar que el programa se rompa cuando se introduce 
una instrucción de inclinación de 90% y otra de 20 para el diámetro de las órbitas de 
las estrellas 2 y 3, ya que entonces, el dibujo sobrepasaría los límites superior e infe- 
rior de la pantalla. La figura 7.1 proporciona una representación típica de órbitas. 


O | 


Figura 7.1. Sistema estelar con dos estrellas pequeñas orbitando alrededor de 
una mayor. 
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Órbitas lagrangianas 


La órbita simple compartida por dos estrellas compañeras es relativamente inesta- 
ble, ya que las más mínimas perturbaciones (desajustes gravitatorios) provocarían la 
caísa del sistema ordenado con dos objetos opuestos diametralmente en la misma ór- 
bita. Una estrella podrá adelantar a la otra, con bastantes posibilidades de colisionar, 
o de que la mayor de las dos absorva a la menor. 

Una vez señalado esto, digamos que, de hecho, hay en una órbita dos puntos en 
los que la estrella menor (o un planeta que se encuentre en la misma situación) está 
razonablemente a salvo de esta catástrofe. Se trata de los llamados puntos lagrangia- 
nos. Emplazados encima o detrás de otro cuerpo que recorre una órbita, a unos 60%, 
forman un triángulo equilátero perfecto con la estrella central. Cuando comienza el 
programa, se calcula una sola posición orbital, mediante las líneas 110 y 120. La posi- 
ción de la segunda estrella se refleja simplemente mediante los valores negativos de la 
línea 170. Retoca el programa que simule a dos estrellas lagrangianas en órbitas 
lagrangianas: 


111LET sx1 = INT (SIN (f + 2)*h) 
121 LET cy1 = INT (COS (f + 2)*h/z) 
140 PLOT z—sx1,y —cyl 

170 CIRCLE x —sx1,y —cy1,d3 


Si añadimos un valor apropiado de 2 a “f”” en las líneas 111 y 121, el segundo 
cuerpo avanza por su órbita hasta que los tres cuerpos forman un triángulo equilate- 
ro. Obviamente, la Órbita aparece comprimida para cualquier inclinación de órbita 
menor de 90% —vista sobre un plano. 

Téngase en cuenta que, con excepción de algunos asteroides asociados al planeta 
Júpiter y su Órbita, no tenemos evidencia de que existan estrellas con órbitas lagran- 
gianas, por lo cual es razonable presumir que, si hubo algún sistema estelar de este 
tipo, la Órbita debería haber sido lo bastante grande en relación al diámetro de las es- 
trellas como para que tuviera una estabilidad razonable y evitase efectos de marea so- 
bre la superficie de las estrellas. 


OREA Ia AE DAA 
10 PRINT "Orbita triestelari'i 
E 
0 INFUT "Declive de la orbita 
CO" CHRS 1303 "a 90" CHR$S 1300)" 
ad PEINT "Declive="izda CARS 130 
40 LET 2=1/SINM (00, 1+2)/180*F1) 
390 INFUT "Diam. est. 10-20)"; 
11 
60 INFUT "Diam. esta 2020)"; 
da 
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70 INFUT "Diam. est. 3-20) 


da 
B0 LET x"128%: LET y=8288 
90 LET h=60: CIRCLE xp, ysd1 
100 EOR 4:0 TO F1Ix*2 STEF ,1 


110 LET sx*=INT (SIN +4xh) 
1230 LET cy=INT  (C00S +x*h/2) 
130 FLOT x+sx, y +aoy 
140 FLOT o xusx, yoay 
1530 FOR n=0 TO li OVER 1 
160 CIRCLE cora y Ey a da 
170 CIRCLE xusx, y cy da 
180 OVER Os NEXT ni NEXT € 
190 STOP 
PROD EEE A 0 0H E MM AA 
9990 SAVE "triest." 


Orbita estelar binaria 


Este programa es un juguete, comparado con el de “Órbita de tres estrellas”, 
pero, al menos, sabemos que es bastante común entre los sistemas estelares. De 
hecho, hay un porcentaje bastante alto de estrellas binarias, y la expresión se utiliza 
mucho antes de que se adaptara a la terminología de los ordenadores. Las copias de 
muestra de la pantalla ponen de relieve resultados típicos, mediante la variación de la 
entrada de la inclinación de la órbita y el diámetro de las dos estrellas que la compo- 
nen. Como hemos dichos antes para la órbita de tres estrellas, estrellas de pequeña in- 
clinación de órbita y un gran diámetro simulan efectos de eclipse. Veáse la figura 7.2. 


af binaria: 


Figura 7.2. Una pequeña estrella compañera, en órbita alrededor de una gran es- 
trella central. 
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Centro de gravedad mutuo 


Habrás reparado en que, en los dos programas anteriores, la estrella central per- 
manece fija, lo que implica que la masa de la estrella central (o estrellas) que gira en 
torno a ella es insignificante. Sin embargo, en algunos sistemas estelares, la masa de 
las estrellas que lo componen puede no ser muy diferente, y las estrellas girarán alre- 
dedor del centro de gravedad común al sistema, como en la figura 7.3 


Figura 7.3. Dos estrellas de masas similares en órbita alrededor de un centro de 
gravedad común. 


De la misma forma que un sistema binario tiene mayor relación con la órbita de 
tres estrellas, si se introducen las modificaciones indicadas anteriormente para la órbi- 
ta lagrangiana, es más fácil tratarlo con este programa, como una modificación más 
del programa de órbita de tres estrellas. Pero como pensamos que se ha introducido el 
programa órbita binario de estrellas, efectuamos las siguientes modificaciones para 
Órbitas que tienen, más o menos, el mismo centro de gravedad. 


80 LET h = 60: PLOT x, y 

101 LET sx1 = INT (SIN f*h/2) 
111 LET cy1 = INT (COS f*h/z/2) 
121 PLOT x —sxl1, y —cyl 
141] CIRCLE x —sx1, y —cyl, dl 


La instrucción de trazado (PLOT) de la línea 80 hace que el centro de gravedad 
del sistema se indique con un punto. Las líneas 101 y 111 hacen que el ordenador 
calcule la posición orbital de la estrella central, desviada ahora de un punto fijo. El 
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último valor, 2, controla el radio de la órbita de la estrella central. Prueba con otros 
valores, de 1 a-5, y observa el efecto que se produce. Un valor menor que 1 (0,7, por 
ejemplo) hace que la órbita de la estrella central anterior esté más lejos que la órbita 
anterior. Pon atención en el hecho de que las órbitas queden dentro de la pantalla, 
pues si no es así, el programa se parará. 


E A ES 

10 PRINT "Orbita estelarebinar 
iasUah 

E 

20 INFUT "Declive de la orbita 
(COCHES 1305 "a SO" CHESS 1300)" 


O 


qx 


30 FRINT *'"declive=s" pz CHES 15 


50 INPUT "Diam esta 1(=20)%; 


O 3 


60 INFUT "Diam esto 2020) 


TO LET ocei281 LET y=88 

0 LET h=ó60. CIRCLE xy dd 
0 FOR £=0 TO Flix STEF ,1 
100 LET s=DNT (SIN fx) 
110 LET cyeInT. (COS F¿*h/x) 
120 PLOT x+exa y toy 

140 FOR n=0 TO lí OVER 1 
150 CIRCOLE oct, Y Cy dal 

' Or NEXT mi NEXT + 


O 


O 


' 
| 
' 
I 
| 
I 
| 
l 
| 
Ú 
! 
' 
40 LET 2=1/SIN ((,1+2)/180*1) | 
| 
' 
! 
| 
! 
| 
' 
| 
1 
l 
l 
| 
Ú 
' 
| 
/ 


5) e 0Ó EN 15 Ml Me Id dl A 6 DE DE DM AD A dE 2 
07O SAVE "Binario! 


O. O 


Espirales 


No quisiera inducirte a pensar que los programitas siguientes tengan una relevan- 
cia estricta para la astronomía. Al incluirlos, quiero encontrar principalmente una 
aplicación a los gráficos espirales que el Spectrum está capacitado para realizar tan 
fácilmente. Tales figuras tienen cierta conexión con la Astronomía en tres campos: 
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1) Nuestra galaxia, Vía Láctea, tiene forma de espiral. 

2) Algunas estrellas binarias exóticas pierden materia, dejando en el espacio una es- 
pecie de estela gaseosa. 

3) Sombra de un sistema binario con eclipse que recorre el espacio. 


Sombra de un eclipse binario 


El programa de espiral básica también podría imitar la tercera opción para el 
eclipse de la estrella Algol en Perseus, durante el cual la compañera más morteci- 
na eclipsa a la más brillante cada 70 horas, contemplada desde nuestro punto de vista 
en el espacio. Pero como Algol dista de nosotros 100 años luz, no podemos apreciar 
los acontecimientos cuando se producen, sino 100 años y 12.500 eclipses más tarde. El 
espacio que media entre Algol y la Tierra está dividido en intervalos de 70 horas luz, 
por este ““efecto sombra””, en una espiral continua, como si se tratara de un disco mu- 
sical gigante que tuviera su centro en Algol. 

El programa representa solamente los cinco primeros barridos del efecto sombra 
en las proximidades de Algol, a una distancia de unos 15 días luz, en intervalos de 
una hora. 

El programa (en la figura 7.3) plantea también una paradoja interesante, concer- 
niente a la velocidad finita de la luz (y de cualquier forma física) de 300.000 km/seg. 


FI*10 STEP ¿03 
SIN +£:40%f/10, 80+C0S +40%4F /20 ya 


Figura 7.3. Espiral simple. 
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Como la órbita de la compañera de Algol es constante, lo mismo que las revoluciones 
de un disco, la velocidad del efecto sombra en este disco, lejos del centro, multiplica- 
rá pronto la velocidad de la luz miles de veces en las proximidades de la Tierra. Así, a 
pesar de que la velocidad de la luz es finita, parecería que la sombra (la ausencia de 
luz) puede moverse a una velocidad infinita. 


Galaxia espiral 


Los programas “Espiral doble”” (Fig. 7.4) y “Espiral doble 2”” (Fig. 7.5) podrían 
representar muy bien la forma espiral de muchas galaxias que son los objetos más 
grandes que se conocen en el universo. Sólo describimos aquí dos “brazos”? como se 
les llama, aunque algunas galaxias pueden tener muchos más. 


El programa es idéntico al primero de esta serie, Espiral, si exceptuamos la inclu- 
sión de una segunda línea de trazado para el segundo brazo, en la línea 30. Observa 


que los valores de SIN y COS son ahora negativos, a fin de que la segunda espiral se 
imprima a —180% de la primera. 


Ñ ota a! 
L. rss a 
| | FRINT "ESPIRAL. 
Nooo... FOR $=0 ! 
20 PLOT 140+S1N 440 
20 PLOT 140-510 440% /10,B0-C08 44004 
A! 40 NEXT 4 
nm 
A 
nsocil 


Figura 7.4. Espiral doble. 
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ESPIRAL POBLE 


1 FRINT "ESPIRAL DOBLE 2" 

10 FOR £=0 TO PIx*10 STEP .05 

20 PLOT 140+SIN £x40%f/5,80+C008 £*40x4/10 
ZO FLOT 140-SIN 4:40*f /5, 80-C0S F£*40*f/10 
40 NEXT + 


Figura 7.5. Espiral doble 2. 


El trazado se controla mediante el bucle FOR/NEXT f para cinco vueltas a la Ór- 
bita (PI*10) con un valor de incremento (STEP) de 0,05. La variación del incremento 
alterará el intervalo que se está trazando. Para que los brazos de la espiral doble 2 es- 
tén más espaciados, hemos de dividir por la mitad los valores aplicados a la variable f 
en las líneas 20 y 30 de la forma: 


SIN ...f/5 and COS... f/10 


Al ser el segundo valor (10) doble que el primero (5), la espiral se representa como 
si estuviera inclinada, ya que el eje mayor (el horizontal) mide el doble que el menor 
(el vertical). Trata de corregir estas proporciones con un número mayor o menor, de 
la forma: 


COS... f/(valor nuevo) 
Esto se debe hacer con idénticos valores en las líneas 20 y 30. Algunas permutaciones 
pueden provocar la ruptura del programa, al intentar dibujar fuera de los límites de la 


pantalla. 
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ESPIRAL DOBLE 


FRINT "ESPIRAL DOBLE 3" 


LET as1l402 LET budo 

CARCLE artibt+S, 0 

CIRCLE a-3, : 

FOR f£=0 TO Fi*io STEF ¿03 
“=B]N Fada 

LET y=CO0S +00 

PLOT at+tx 3, b+y/1dO 

PLOT 4-7. b=yf10 

MEXT E 


Figura 7.6. Espiral de estrellas gaseosas. 


Espiral de estrellas gaseosas 


El último programa de esta serie (Fig. 7.6) se ejecuta de la misma forma que el 
programa espiral doble, aunque lo hemos vuelto a escribir de forma más cuidada. 
Con el fin de representar un sistema binario cerrado que *“*desperdiga”” materia por el 
espacio que le rodea, cuando las estrellas giran una en torno a la otra en violento 
conflicto, se añaden dos pequeños círculos que representan a las estrellas. Sabemos 
que no se han podido contemplar hechos como éstos, pero se han deducido mediante 
el análisis del espectro a través del espectroscopio de telescopios gigantes. Podrías dar 
a este programa algo más de realismo utilizando como orden directa, antes de hacer 
que el ordenador ejecute el programa: 


BORDER 0: PAPER 0: INK 2: CLS: RUN 


También puedes añadir algunos efectos de color en el origen de la cola gaseosa, entre 
las dos estrellas, mediante una línea adicional: 


( 
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12 PLOT INK RND*9; a,b 


Como esta línea afectará al color de la posición de pantalla donde están las dos 
estrellas, éstas se verán también afectadas. 


Galaxia 


Este programa permite al usuario simular el aspecto que tendría probablemente 
nuestra galaxia, Vía Láctea, si se la contemplara desde el espacio intergaláctico. Utili- 
za un tipo de representación en vídeo inverso (BORDER 0: PAPER 0: INK 7) y apa- 
recerá con claridad casi fotográfica. Las reproducciones (Figs. 7.7 y 7.8) son meras 
sombras del efecto en pantalla. 

El usuario puede dar una inclinación cualquiera a la galaxia, con ángulos com- 
prendidos entre 0* (vertical) y 90% (horizontal), mediante la variable t. El programa, 
en sí mismo, está dividido en cinco secciones, como indican las instrucciones REM. 
Puede ser interesante que los expliquemos un poco, comenzando por la rutina de las 
líneas 100 a la 150 que dibuja la galaxia. Aquí, dos bucles FOR/NEXT pintan las 
estrellas para formar una espiral de seis brazos en la línea 130 y el centro de la galaxia 
en la línea 140. El constante uso de la instrucción RND para calcular números aleato- 
rios provoca un efecto maraña de distribución de estrellas que se sabe que existe. La 
variable tt, que toma inicialmente el valor de t (el declive introducido) controla la lon- 
gitud actual del bucle FOR/NEXT n y limita el número total de estrellas pintadas en 
esta sección. En efecto, para ángulos de declive pequeño, aparecerán pocas estrellas, 
porque se tapan unas a otras. Por eso hay pintadas pocas estrellas. 

La secuencia siguiente, desde la línea 160, dibuja la maraña de “enjambres globu- 
lares”” que forman una capa esférica que gira en torno al centro de la galaxia. Cada 
uno de los puntos representa a cientos de millares de estrellas. 


Comentarios a la pantalla 


El objeto de esta sección, que comienza en la línea 220, es puntualizar lo que se ha 
dibujado con observaciones a cada una de las secuencias mediante instrucciones 
PRINT. Observa que todas las líneas (PRINT) son de la misma longitud, 32 caracte- 
res, con lo cual no necesitamos borrar las observaciones previas, ya que podemos li- 
mitarnos a escribir encima de ellas. La línea 230 ubica la instrucción PRINT como 
una rutina GOSUB separada. 

La secuencia final de la línea 270 indica la inmensidad del universo al trazar un ra- 
dio de 2.000 años luz en torno al Sistema Solar (que, a esta escala, sería completamente 
invisible). Pero un telescopio colocado en el planeta Tierra alcanza hasta 15.000.000.000 
años luz en el espacio intergaláctico, a través de una superficie colectora de 200 pul- 
gadas solamente (reflector Hale). Para dar una idea de la escala, si el circulito de la 
parte central derecha de la pantalla (que representa nuestro Sistema Solar) fuera una 
partícula subatómica de 0,000 000 000 01 milímetros de diámetro, la pantalla repre- 
sentaría una superficie de unos 30 kilómetros a la redonda de la partícula. 
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Figura 7.7. La Vía Láctea vista de perfil. Todas las estrellas que se ven a simple 
vista desde la Tierra están dentro del circulito de la derecha. 


Figura 7.8.. La disposición en espiral de los brazos de la galaxia se hace evidente 
al representarla de frente. 


15 E E EOS 

10 REM Galaxia 

11 REM. RARA IE IE RIE E dE E dE 

15 RESTORE ló6sz FOR fsUSEK "nt T 
O USK "pnUi+7i READ ni: PFOEER +,ni NN 
EXT Fi REM ee 

16 DATA 546,0,120,068,68,69,68,0 

ZO BORDER 6: FAFER Ox INE 7 

1% LET =73r LET x=148 0 


ES ee He E e 6 "dé 53 e «he e Ple e «dls d+ 280 lc «dl» DE 
Seleccion y titulos 
30 PFRINTOAT 20,0 "Galaxia"? "De 

clive=" ps INEFLT "O" [HRS 1305 a 

QO"3 CHESS 107 t 
60 PFRINTOECHR$ 1303 TAR Op U< 

"AT 20, 143 "1000 

00 ALU": LET o ttetk 
TO PLOT 76.3 DRAN OVER 11143 

¿01 60 SUE 230: 60 SUE 240 
B0 LET t=1/SIN CC. 1l+t)/180*F1) 
E Le] Es E M E 
O REM dibuja la galaxia 
21 154 E IM $e Me dle Jl PE Ds PE Dl DD DE DE DE DE PE DE 2 EM e 9 

100 LET (quér+l1/tx*do 

110 FOR nel TO tk / 1042 

120 FOR €=:1 TO z 

130 PLOT oceéx*(SIN 4) +ENDAG, yx 
COS F/t+RNDe qui 

140 FLOT octH*RSIN 4/4+RND*Z, y fx 
COS ¿/O+FENDEZ 

130 NEXT €: NEXT on 

15% REM eee de E e E A: dd ME E 
160 REM dibuja cumilos qglobul. 
1 és 1 EN E M He DE E DIE ED PE DE DE IE DE E E E ps 2 
170 60 SUB 230: 60 SUE 250 

180 FOR €=:1 TO 2 

190 PLOT x—10+feS IN f+RNDEZ0, yor 
10442 C0S FARNDAZO: MEXT 

200 60 SUE 230: 60 SE 260 

210 STOF. ; REM Final 
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O REM HE A 6 
220 REM Comentarios de pantalla 
IN 
230 FRINT AT 0,03 RETURN 

240 PRINT FLASH 1i"Centro gala 
ctico y brazos"”* "espirales. '": RE 
TURN 

250 PRINT  ELASH 14" dibujando 
cumulo estelar "1 RETURN 

260 PRINT  ELASH 15 "Radio desde 
el Sol 0=2000 Al. (Cuyo perio 
do para orbitar la galaxia es 
de 225 mill. de a 08,” 

E E A 
270 REM dibuja circa. de 2000 Al 
E AS 
280 CIRCLE FELASH lit.) yy 
290 RETURN 

PROO REM RR Ed A ME 
9990 SAVE "Galaxia" 


SR A 


O. 0 > 0 


Capítulo 8 
Cartas estelares 


Las cartas estelares constituyen el ““catálogo”” del astrónomo aficionado. El núme- 
ro total de estrellas que contienen es de tal magnitud, que el usuario del Spectrum (o 
un sensato usuario de cualquier otro microordenador) debería perder toda esperanza 
de competir con ellas. 

Por ejemplo, el Tirion Star Atlas 2.000,0 (que en esta obra denominamos simple- 
mente como Tirion) contiene unas 45.000 estrellas y objetos del recóndito cielo. 

Para que nos hagamos una idea del alcance de la tarea que habría de abordar el 
usuario del Spectrum, consideremos que el 99 por 100 de una carta estelar contiene 
espacios vacios, que todas las estrellas de Tirion se pueden contemplar con unos pris- 
máticos de 10 x 50, y que con un telescopio pequeño se pueden ver millones. 

El usuario de cartas estelares que trabaje con microordenadores debería con- 
centrarse en las técnicas de manipulación de datos o de paginación rápida de resulta- 
dos, para representarlos, más que en pretender que la máquina dibuje con exactitud 
un elevado número de estrellas. Con esta intención se han realizado los programas 
que presentamos a continuación. 


Mapas estelares (sólo para el Spectrum de 48 K) 


El trazado de mapas estelares no es, en sí mismo, la ocupación más fructífera que 
puedes dar al Spectrum. Para ello deberías consultar mejor un buen libro, como el 
Norton o el Tirion. Además, los atlas como los citados marcan la posición y gradúan 
el tamaño del punto relativo a la magnitud estelar con una precisión que es imposible 
de conseguir con un micro o incluso con un miniordenador. Éste desprecia todos los 
datos de nombres o códigos de estrellas, estrellas de brillo variable y objetos de los ca- 
tálogos Messier y “New General””, pues enmarañarían la pantalla y la harían in- 
comprensible. 

Todo cuanto decimos no es óbice, sin embargo, para que probemos a hacer satis- 
factoriamente una presentación instantánea y sencilla de un mapa estelar. Como 
astrónomo, creo necesario que desafiemos la pésima calidad de algunos trabajos 
publicados en este campo. 

Quizás tenga aún más importancia el hecho de que este programa muestra una téc- 
nica de manipulación y utilización de datos almacenados en matrices CHR$ para di- 
bujar estrellas. 
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En su forma final, puedes seleccionar, por medio de un número (tal como se indi- 
ca en la figura 8.1), de una a tres opciones para representar una cualquiera de las 
30 constelaciones mencionadas como modelos de estrellas, orientadas todas correcta- 
mente (el norte de la parte superior; el este, a la izquierda) a gran escala. Las coorde- 
nadas celestes en AR y Dec para el centro de la pantalla, se In juntas con 
una escala en grados. 


Figura 8.1. Opciones del programa “Mapas de estrellas”” 


Alternativamente, puedes representar un mapa estelar, a escala reducida, de todas 
las constelaciones" visibles durante cualquiera de las cuatro estaciones, con el nombre 
de cada constelación. 

La opción final consiste en un mapa estelar completo de 30 constelaciones, que 
contiene 310 estrellas en una franja panorámica del cielo. A pesar de que la reducida 
escala de la última opción resalta la limitada capacidad de resolución de la pantalla 
señalada al principio del capítulo, los resultados serán agradables de contemplar. 


Cómo copiar la pantalla 


Los mapas estelares se muestran en vídeo inverso, mediante un cielo de color 
negro (PAPER 0), con las estrellas en blanco (INK 9, para contrastar). Se incluye 
también una instrucción para sacar una copia de la imagen de la pantalla, a través de 
la impresora ZX, en la que, por supuesto, se obtendrá un negativo de los mapas este- 
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lares: fondo blanco, con las estrellas en negro. Tenemos que aceptarlo así porque, 
francamente, la impresora ZX es incapaz de ofrecer una auténtica presentación inver- 
tida (INVERSE), que, además, en el caso de un mapa estelar, quedaría casi totalmen- 
te (en un 99,9 por 100) en negro. Los mapas estelares se han diseñado pensando en las 
posibilidades de la impresora ZX, y hemos considerado muy atentamente la presenta- 
ción en pantaila, tanto monocroma, como en color. En las figuras 8.2, 8.3 y 8.4 pre- 
sentamos una muestra de mapas estelares. 


araña 


Figura 8.2. Mapa estelar completo con 30 constelaciones y 310 estrellas. Obsérve- 
se la Osa Mayor en la parte central superior como referencia. 


Reconocimiento de una constelación 


No hemos intentado diferenciar las magnitudes estelares mediante puntos de dis- 
tinto tamaño, aunque más adelante, en este mismo capítulo, explicamos un método 
para hacerlo. La magnitud estelar que se puede reproducir en estas cartas estelares 
abarca desde 3,5 a 4,5. Para conseguir que cualquiera de las estrellas fuera más mor- 
tecina, deberían incrementarse notablemente los datos y desordenar la pantalla. El or- 
den en el que se traza cada estrella tiene como misión ayudar a reconocer esa conste- 
lación en particular. Pero la velocidad del Spectrum, que solo tarda un segundo en di- 
bujar una constelación típica, puede resultar demasiado rápida para la vista de algu- 
nos, por lo cual se puede ralentizar la acción eligiendo la ““opción lenta””. 
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Figura 8.3. Mapa estelar para el verano. Obsérvese, como referencia, Sagitario y 
Escorpio, en la parte inferior central y el cuadrado de Pegaso a la izquierda. 


Figura 8.4. Ejemplo de constelación DRACO: “el Dragón”. 


Proyección del mapa estelar 


Al representar la esfera celeste mediante una proyección cilíndrica cuando se dibu- 
jan mapas estelares, es inevitable que se produzca alguna leve distorsión, aunque esto 
sólo se pone de manifiesto cuando se incluyen constelaciones cercanas a los polos ce- 
lestes, norte o sur, y yo las he excluido deliberadamente. Hemos elegido constela- 
ciones que sean visibles desde las latitudes de Europa y norte de América, y compren- 
den desde la Osa Mayor (el Carro), el Dragón y Casiopea, todas con centro aproxi- 
mado en los —60% de declinación norte, hasta Escorpión, alrededor de —35% de 
declinación sur. El programa contiene casi la mitad de todas las constelaciones que se 
encuentran entre estos dos extremos. Se han reconocido en el cielo 88 constelaciones, 
dos tercios de las cuales, aproximadamente, se pueden ver desde Gran Bretaña*. 


Preparación del programa 


Hemos dividido el programa de mapas estelares en dos partes, a causa de la enor- 
me cantidad de datos que se han de utilizar. La primera parte se denomina **Progra- 
ma Cargador” y opera con las" coordenadas “x” e “y”” de las posiciones de 310 
estrellas, los nombres de las constelaciones y las coordenadas centrales de cada mapa 
estelar, que pueden estar juntos, formando un rompecabezas, en los mapas estelares 
impresos. La segunda parte del programa se llama “Mapas de estrellas”? y hace que el 
ordenador opere con los datos introducidos en la primera parte. 

Quizás sea instructivo explicar un poco la forma en que se han preparado los da- 
tos, antes de proceder con los mismos programas, porque esto te puede capitar para 
introducir algunas modificaciones en el programa si lo deseas, añadiendo quizás 
incluso más constelaciones. Se necesita bosquejar, en los términos más sencillos, la 
constelación que se va a proyectar. El Spectrum no toma parte en este aspecto del tra- 
bajo y necesitarás un atlas estelar. 


Dibujo de las constelaciones 
El método para preparar los datos de cada constelación es el siguiente: 


1) Traza, en una hoja de papel cuadriculado, una cuadrícula que tenga en su eje de 
ordenadas (x, horizontal) de O a 63 divisiones y, en el eje de abcisas (y, vertical), 
de Oa 43. 

2) Marca el centro del rectángulo con un **+>”” y anota en el papel el nombre y las 
coordenadas de la constelación seleccionada. 

3) Dibuja, a partir de un atlas de estrellas, la constelación seleccionada y transfiérela 
al papel cuadriculado, rellenando los cuadrados completos que queden más cerca 


* Aproximadamente la misma cantidad desde España. /N. del E.] 
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de cada estrella. Comprueba que la posición de las líneas de las cuadrículas del 
atlas coincidan, más o menos, con las de tu gráfico para que la constelación no 
aparezca girada. 

4) Numera cada una de las estrellas y señala las coordenadas “*x”” e “y”” del papel 
cuadriculado con un número de cuatro cifras, por ejemplo, 4327. 

5) Marca en el papel una letra, para codificar el número total de estrellas utilizadas 
en cada constelación. A=1,B=2, hasta Z = 26. 


Datos de estrellas 


Asegúrate de que has anotado, en los lugares de los millares y las centenas del nú- 
mero de cuatro cifras, las correspondientes a la coordenada “*x””, pues si intercambias 
las dos mitades de este número, las estrellas quedarán ubicadas indebidamente en el 
mapa estelar. Ten en cuenta que, como han de dibujarse muchas estrellas, sería muy 
difícil localizar una que estuviera ubicada erróneamente, sobre todo si no estás muy 
familiarizado con los dibujos de estrellas, y si además tienes en cuenta que, hasta aho- 
ra el astrónomo experto, es primordial guardar dicha precaución inicial. La figura 8.5 
muestra un esquema típico utilizado en este programa de la manera que acabamos de 
describir. 


coords. y 


Aquila = ra 19.50 de +02? (centro de la pantalla) 
=J 


BS 


san 
Estrella a 


l =2315 
29 25 
31 28 
3331 
46 36 
48 37 
30 18 
8 = 4020 
9 = 4610 
10 = 48 08 


Diagrama para toma de datos y diseño de constelaciones 


SÍ coords. x 
Figura 8.5. 
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Observa que la coordenada de posición tomada del atlas estelar para el centro de 
la pantalla, y por cada carta preparada, es un número de cinco cifras, contando el 
punto decimal para la AR (eje horizontal) y un número de tres cifras, contando con el 
signo “+”” o “—”, de la Dec (eje vertical). En esta última no se incluye el signo de 
los grados. En el ejemplo que damos para la constelación de Aquila (Águila) el 19,50 
de la AR, indica 19 h 50 min. El programa de la línea 1090 convierte esto en horas 
más fracciones decimales de horas y, finalmente, en la línea 1140, en grados, multipli- 
cando por 15. Por ejemplo, 19 h 15 min = 19,8333 h =297,5%. La AR no puede exce- 
der de 24,00, porque 24,00 x 15 = 360%, un círculo completo. 

He creído adecuado preparar las cartas sólo con una resolución de 64 Xx 44, aun- 
que está claro que la capacidad de resolución de la pantalla del Spectrum es de 
256 x 176 puntos. 

Las AR se almacenan en la matriz a$ y las Dec en la b$, de forma que se pueden 
usar posteriormente, sin modificación en los títulos de los mapas de estrellas. Tam- 
bién se ahorra memoria del ordenador al guardar datos de esta forma, evitando ope- 
raciones complicadas para convertir la correspondiente matriz numérica en CHR$ a 
la hora de su representación. En las primeras pruebas de este programa se utilizaron 
tanto matrices numéricas como CHR$ para almacenamiento de datos, habiéndose no- 
tado que el programa realiza sús operaciones un 30 por 100 más lentamente si se 
emplea el almacenamiento CHR$. Esto significa que un mapa celeste completo de 310 
estrellas tarda cerca de 44 segundos en pintarse, en lugar de 40 segundos, lo que he 
considerado aceptable, teniendo en cuenta las ventajas. 


Mapa estelar 1: Cargador de estrellas 


Introduce el «Programa Cargador» y comprueba que se corresponde con el lista- 
do. Antes de introducir todos los datos de las 30 constelaciones y las 310 estrellas, 
efectúa una pequeña comprobación para verificar que todo está correcto. Puede que 
no necesites efectuar este test para cada una de las 30 constelaciones, así que, corrige 
la variable **z”” en la línea 2020 para que se lea LETzZ = 2, y haz que el ordenador eje- 
cute el programa. Esto permitirá introducir las dos primeras constelaciones (Aquila y 
Capricornius), a partir de los datos de la figura 8.6. 

El tratamiento de los errores está bien concebido en el programa. Además, el or- 
denador emite un sonido (BEEP) cuando se toca el teclado o cuando se introducen los 
datos, a fin de que puedas concentrarte en lo que estás haciendo, sin necesidad de 
comprobar constantemente lo que se representa en la pantalla. Efectúa un par de 
comprobaciones, aunque sea con números ficticios. El programa incluye también una 
rutina para guardarlo y verificarlo (ver líneas 9990 y 9995), para quienes sean novatos 
en el manejo del Spectrum. Con todo ello, conseguiremos asegurar lo ya efectuado, 
frente a la pulsación errónea de una tecla. 
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Programa cargador 
ELE MRR  ER 
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DIM nta. 
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! ca completa" 0 TO 9970 

0) PFRINT ORO FLASH di "Error's O 
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(7 997O SAVE "Mapaesta" LINE Oo E) 
' DORA. REV IN A A 
RES BEEP 1,1 De 

de E 9903 FRINT ORO: “esbobina cinta y (0) 
da PLAY para verificartí VERDE 
Y "Maparsst," 

a 0 


Introducción de los datos 


. 


Primero hay que corregir la variable **z”” en la línea 2020 para que se lea LET = 30 
—esto es vital — y hacer que el ordenador ejecute el programa. 

Opera de forma progresiva con los datos que se dan en la figura 8.6. No todas las 
30 constelaciones se han de introducir en la primera sesión, ya que, si lo prefieres, 
puedes desarrollar el programa en varias sesiones. 

Cuando se pulsa la tecla **p”” (ver línea 2195), después de introducir los datos, el 
programa se guarda en el cassette. Después de haber guardado el programa, éste te in- 
vita a que rebobines y pases de nuevo la cinta para verificarlo. Las sucesivas instruc- 
ciones de guardar (SAVE) y verificación (VERIFY) originarán que el ordenador emita 
un sonido (BEEP). Si no lo hace, introduce como orden directa GOTO 9990 y repite 
las rutinas de guardar y verificación, hasta que aparezca en la pantalla el mensa- 
je “OK”. Para cargar el programa desde la cinta para la siguiente sesión de entra- 
da de datos, escribe la orden directa LOAD ““Mapaest”” y pon en funcionamiento el 
cassette. El programa va automáticamente hasta la línea 2050 en cargas sucesivas, 
listo para que se introduzca la constelación siguiente. 

Si el programa se interrumpe por alguna razón, da la orden directa GOTO 2050. 
Si no funcionase, deberás dar la instrucción de ejecutar el programa (RUN) o una ins- 
trucción para que regrese directamente (GOTO 2050). Si no lo hacemos así, todos los 
datos no asegurados en la cinta se perderán o serán machacados, pues se escribirá en- 
cima de ellos. Una vez introducidos todos los datos, asegurados y verificados, se po- 
drá tratar con ellos la parte siguiente del programa. 


Mapas estelares 2 


Introduce la segunda parte del programa —llamada “Mapas de estrellas””— y en- 
mienda la línea 9990 para que se lea 
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Figura 8.6. Datos para el programa “Mapas de Estrellas”. 
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Figura 8.6. Datos para el programa “Mapas de Estrellas 
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Figura 8.6. Datos para el programa “Mapas de Estrellas”” (cont.). 
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Figura 8.6. Datos para el programa “Mapas de Estreilas”” (cont.). 
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9990 SAVE ““Mapaest”” LINEA 1 


lo que garantiza que el programa comience automáticamente por la línea 1, una vez 
guardado y, subsecuentemente, cargado. La parte nueva del programa efectúa la pre- 
sentación, la selección y el trazado de los mapas estelares. Cuando hayas comprobado 
que el listado es satisfactorio, introduce la orden direca GOTO 1 para que comience a 
Operar el programa. 


El programa 


Las instrucciones REM muestran la estructura general del programa. El trazado 
de este mapa estelar se divide en dos partes: 


1. Las constelaciones seleccionadas a gran escala. 
2. Los mapas estelares estacionales y anuales. 


Una vez seleccionada una constelación (entradas 1 a 30, inclusive), la variable de 
la línea 170 (LETsc = 4) multiplica la escala por 4, de manera que la constelación 
llene la pantalla. Las opciones con entradas (INPUT) de 31 a 34 inclusive, tienen 
una variable adicional llamada “*x1””, que toma valores diferentes, de acuerdo con la 
instrucción condicional GOTO de la línea 120. La variable **x1”” selecciona, para 
representarlo, una cuarta parte del mapa completo del cielo. El mapa celeste —opción 
INPUT 35— produce un efecto completo de giro horizontal de 360%. La variable sc se 
hace =1 para mapas estacionales, y toma el valor 0,52 para el mapa celeste anual. 
Observa si has introducido correctamente en la línea 90 “m>1” y “m<TI” (el segundo es 
una “*1”” minúscula). 
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RETURN S 


Dibujo de una constelación 


El mapa estelar enseña una técnica de introducir modelos de estrellas directamente 
en matrices dimensionadas, mediante la instrucción INPUT de entrada, método que 
es aconsejable cuando se quieren introducir muchas constelaciones y estrellas. El 
programa “Movimiento estelar””, que trataremos más adelante en este capítulo (con 
dos constelaciones en las que hay que dibujar pocas estrellas), mantiene las posiciones 
numéricas de las estrellas en una cadena CHR$ de la que más tarde se extraen. 

Este programa muestra dos métodos adicionales para pintar modelos de estrellas: 
utilizando la instrucción DATA CODE y CHR$. En ambos métodos, la información 
aparece en el programa que se está listando y es muy fácil de manipular. Véanse figu- 
ras 8.7 y 8.8. 


Método 1: almacenamiento de datos mediante DATA 


Este es el medio convencional para almacenar datos y se describe adecuada, aun- 
que brevemente, en el manual del Spectrum. La orden de lectura READ hace que el 
ordenador nos proporcione los datos cuando queremos utilizarlos y, una vez que los 
ha leído, se pueden volver a utilizar si se emplea la orden RESTORE. Como, en este 
programa, el dibujo que implican los datos se traza inmediatamente después de que el 
ordenador los lea, no es necesario utilizar RESTORE. 
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Figura 8.7. Dibujo de la constelación Lyra empleando CODE y CHRS$. 


Figura 8.8. Dibujo de la constelación Lyra empleando READ y DATA. 


No obstante, si el programa se detiene (con el mensaje de error ““integer out of 
range”” - entero fuera de rango), trata de hacer que comience de nuevo mediante la 
instrucción GOTO1. Verás que el programa no obedecerá esta orden de comenzar de 
nuevo, porque no se han vuelto a almacenar los datos, y que en la pantalla aparecerá 
el mensaje de error ““out of data”” (ausencia de datos). Haz que el ordenador ejecute 
(RUN) y el programa te obedecerá como si hubieras vuelto a almacenar los datos. Es 
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decir, que la secuencia DATA/READ/RESTORE (datos, lee, almacena de nuevo), 
debe considerarse especialmente en programas largos en que se puedan utilizar varias 
instrucciones de datos (DATA) en órdenes diferentes. 

En el programa “Dibujo de constelación””, la instrucción DATA se encuentra en 
la línea 40 y representa el dibujo estelar estival de Lyra (Lira), con seis estrellas que 
tienen cada una una posición de coordenadas “*x”” e ““y””, Esto supone que los datos 
suman 12 items. Además, las esquinas de la representación se pintan también para in- 
dicar la escala. Esta es la secuencia de datos necesaria para las estrellas y esquinas: 


0, 0, 63, 43, 0,63, 0... 


hasta un total de 20 datos. El último dato necesario es el número de estrellas y posi- 
ciones de esquinas que han de trazarse, y viene dado por el primer número de la se- 
cuencia DATA (es decir, 10). (Ver programa “Dibujo de constelaciones”, línea 40.) 

La línea 90 lee (READ) el primer dato (10) y la variable **c”” determina la longitud 
del bucle FOR/NEXT n, en la línea 100, para todo el dibujo. La línea 100 lee las 
coordenadas ““x”” e “y”? de los datos, que se trazan en la línea 110, multiplicados 
por 4. Más adelante explicaremos el valor de la variable llamada de ““escala””. 


Método 2: almacenar en código CHR$ 


Este método es, en muchos sentidos, más elegante que una secuencia DATA/ 
RED/RESTORE, y se basa en la sofisticada capacidad del Spectrum de representar 
cadenas troceadas. Esto supone que hay que utilizar con mucho cuidado la instruc- 
ción CHR$ eligiendo solo los caracteres más idóneos para ello. Puede que tengas que 
recurrir al manual para estar seguro. 


La colección de caracteres ASCII 


El Spectrum utiliza la colección de caracteres ASCII, además de otros signos y ca- 
racteres gráficos propios. 

Los caracteres ASCII (desde CODE 32 hasta CODE 127) pueden utilizarse en los 
programas e, incluso, podemos ampliar el margen de caracteres que utilicemos hasta 
CODE 143, para incluir los gráficos de baja resolución y el signo £ que, aunque no 
pertenecen estrictamente al juego de caracteres ASCII, pueden utilizarse e imprimirse 
si se tiene la impresora ZX. 

En un programa como el de dibujar estrellas con una resolución de pantalla de 
64 x 44 (una cuarta parte del potencial del Spectrum, 64 caracteres son suficientes. 
Hay que tener en cuenta que no podemos utilizar el carácter 34 —signo de comillas— 
dentro de una cadena; en su sustitución podemos emplear el carácter 35 —signo de 
sostenido— que es el carácter utilizable de número más bajo). Lo más sencillo es utili- 
zar los códigos de las letras mayúsculas y minúsculas, que son mucho más sencillos de 
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identificar y reconocer, a pesar de que entre CODE 91 y CODE 9%6 nos encontramos 
una serie de signos menos usuales. De CODE 96 hasta CODE 127 encontramos las 
minúsculas y de ahí en adelante los códigos corresponden a caracteres particulares del 
Spectrum. 

Los códigos seleccionados que utilizo normalmente y que aparecen en el programa 
son, desde el 64 O al 127 O inclusive. Éstos se convierten en valores numéricos de “*x”” 
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e “*y”” en las líneas 270 y 280, de esta forma: 


LET x = CODE a$(n)—64 
LET y = CODE a$ín + 1) —64 


si restamos, a cada código, 64, tenemos un rango de valores de O a 64 
CHR$ a = CODE 64—60=0a 
CHR$ c = CODE 127—64 = 63 


lo que representa la posición horizontal, o coordenada “x””. El rango de códigos para 
la posición vertical, o coordenada y, sería: 


CHR$ a CODE 64—64=0a 
CHR$ R = CODE 107 —64 = 43 


A partir de la línea 200, el programa muestra el trazado del dibujo de la estrella Lira 
mediante los códigos contenidos en los caracteres de la cadena a$. a$ tiene 21 caracte- 
res y codifica precisamente la misma información contenida en los datos de la línea 40 
utilizados exclusivamente en la primera parte del programa. La única diferencia entre 
ambas estriba en que el valor efectivo de primer caracter de a$ (**T””) es 20. 


CHR$T = CODE 84—-64 = 20 

y se utiliza para colocar la longitud del bucle FOR/NEXT en la línea 260: 
FORn = 2 TO CODE a£$(1) — 64 STEP 2 

donde n toma un valor secuencial de 

2, 4, 6, 8, 10, 12, 14, 16, 18, 20 


STEP 2 para el valor de la coordenada “*x”” en la cadena a$. Con ello, el valor de la 
coordenada y se extrae de los números impares del bucle: 


"3,357, 9, 11, 13, 15, 17, 19, 21 
en la forma... CODE a$(n + 1)—64 


Cómo adaptar el dibujo al tamaño de la pantalla 


A menudo es útil cambiar la escala del dibujo de la estrella en la pantalla, para lo 
que se utiliza la variable llamada “'scale””. En la primera parte del programa que 
guarda los datos mediante DATA y antes de trazar la posición de la estrella, esta va- 
riable toma un valor de 4, con lo que se aumenta la separación de las estrellas, a fin 
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de llenar la pantalla, particularmente los marcadores de las esquinas. En la segunda 
parte del programa, se da un valor inicial de 3 a la escala que después se va cambian- 
do, una vez que se ha completado el bucle, en la línea 310: 


LET scale = scale — 0,5: GOTO 230 


La instrucción GOTO 230 hace que el programa regrese al bucle FOR/NEXT n 
una y otra vez, hasta que llega un momento en que se interrumpe y aparece un mensa- 
je de error ““Integer out of range””, porque la escala de la imagen es ahora demasiado 
grande para que se pueda pintar en la pantalla. 

Pero antes de que se interrumpa el programa se verá cómo el modelo de la conste- 
lación Lira va disminuyendo su tamaño, en pasos sucesivos, hasta quedar reducida a 
un punto en el margen inferior izquierdo de la pantalla, para empezar entonces a cre- 
cer de nuevo. 

En la parte superior derecha de la pantalla se representa el valor actual de la va- 
riable de escala y apreciarás que su valor, que es inicialmente 3, disminuye constante- 
mente de 0,5 en 0,5; después de que el bucle n se haya repetido seis veces, los valores 
se habrán hecho negativos y, la imagen crecerá de nuevo. Así, la variable de escala 
puede tener valores tanto positivos como negativos, y los resultados que proporciona 
son similares. 


Preparación de cartas estelares 


Para explicar la preparación de las cartas estelares que se transferirán después a 
un programa del Spectrum, hay que referirse al programa de mapas estelares, comen- 
tado ya en este capítulo. Baste con señalar aquí que, si te propones utilizar caracteres 
para codificar las posiciones de las estrellas, deberás marcar los ejes ““x”” e *““y”” del 
papel cuadriculado con caracteres (CHR$) mejor que con valores numéricos. Como 
ya se explicó anteriormente, puedes utilzar los caracteres con códigos comprendidos 
entre CODE 64 y CODE 127 para el eje ““x”” y los comprendidos entre CODE 64 y 
CODE 127 pare el eje “y”. 


Más constelaciones 


Este programa sólo demuestra cómo se traza el dibujo estelar de la constelación 
Lira. Para dibujar más constelaciones hay una manera sencilla de manejar y selec- 
cionar los datos, sin introducir la información en matrices dimensionadas. Como re- 
sulta mucho más fácil seleccionar una determinada constelación usando CHR$ en ca- 
denas de caracteres, limitaremos la explicación a este método. 

Los códigos de los caracteres utilizados en el método 2 anterirmente expuesto, es- 
tán combinados con la selección condicional utilizada más adelante, en este capítulo, 
en el programa “Movimiento estelar””, de una serie de constelaciones, todas ellas de- 
nominadas similarmente, en este caso, a$. De esta forma, después de bosquejar cada 
constelación en el papel cuadriculado y haberla vertido en una cadena de caracteres, 
se introducen en el programa, entre las líneas 200 y 210, como a$. Cada a$ debe ir se- 


203 


guida por una instrucción condicional, de tal forma que el programa sea, más o me- 
nos, así: 


201 LET a$ = “Tenioioiasis. ”: TF b$(1) = “A”? THEN GOTO 220 
202 LETa$ = “Lion... a IF b$(1) = “*B”” THEN GOTO 220 
203 LET 28 = “Renenoionis ” TF b$(1) = “C” THEN GOTO 220 
-204 LET a$ = “Rocccn...... ” TF b$(2) = “u” THEN GOTO 220 


Supongamos que las constelaciones representadas son por este orden:*(A)quila 
(diez estrellas), (D)elfín (seis estrellas), (C)isne (nueve estrellas) y (A)uriga (nueve 
estrellas). Observa cómo la instrucción condicional GOTO de la línea 204, selecciona 
la segunda letra, es decir, b$(2) como minúscula *'n”” en Auriga, para distinguirla de 
b$(1) en Aquila, en la línea 201. La primera letra de cada a$ codifica el número de 
caracteres que la siguen inmediatamente, los cuales están representados por puntos. 
Las reformas que tienes que hacer para ampliar el programa son borrar las líneas 20 
a 130 inclusive, y la línea 310, y añadir una línea (150 INPUT b$) para seleccionar la 
constelación que quieres dibujar. 


PEREZ HR A A AE ME E 
10 REM Dibujo de constelacion 
11 REM dd dE MM HE HE E 
30 REM Dib. con los nj. de DATA 
HARE HR E E AA IA 
40 DATA 10,0,04 (634 434 04 Aa O O 


¿41,26,39,24,39,27,35,23,34,17,3 


Ys UE 

30 BORDER Ox INE Yi FAFERK 11 E 
LS 

60 ET escalazd 

70 PRINT "Lira", "escala="jesca 
lu 

80 PRINT "mediante DATA/READ" 

0 READ € 

100 FOR n=1 TO ci READ x,y 


110 FLOT x*escala, yr*escala 

NEXT q 

FAUSE 100 

15 159 IM Y 26 DE PE dE de DE «2 2 DE Pr Ps 2 DE DES 2 JE E E E «Jl ld 
REM dibuja con codig,. de ab 
EN E M HE IE A dE IE de 
REM 

LET aé="T888:8:881 Lg XgAcWb( 


mn. 


20 PAUSE 100: PAFER <1 COLS 


240 FRINT "Lira", "escala="jesca 
la 


O 20 FRINT "mediante codigos de O 
ag" 
(0 260 FOR n=2 TO CODE a$(1)-04 ST 


1 
| 
| 
1 
1 
] 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 
l 
] 
| 
| 
| 
1 
1 
| 
| 
| 


270 LET x=CODE as (n)-64 

280 LET y=CODE aé$ín+1)-64 

2920 PLOT «*escala, yrescala 

500 NEXT on 

210 LET escalarescala-r3i 60 TO 
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GOO. REM A A E IE A A 
9990 SAVE "Dibujaest." 


OO de Y 


Magnitudes estelares 


La luminosidad de las estrellas que vemos en el cielo varía enormemente: entre la 
más brillante y la más mortecina hay más de 100 puntos de diferencia. Los programas 
que presentamos en este libro omiten, generalmente, tales diferencias, para simplifi- 
car, y utilizan un solo punto para pintar cada estrella, por ejemplo, en el programa 
“Mapas de estrellas”?. Hay dos formas básicas de resaltar estas diferencias entre las 
estrellas en la pantalla del Spectrum, y pueden incorporarse a los programas utilizan- 
do las tres rutinas siguientes. . 

El primer método realza la magnitud de la estrella, pintando puntos adicionales 
para formar una imagen mayor. El segundo utiliza una escala de grises. Naturalmen- 
te, este último sólo se puede utilizar en una televisión en blanco y negro, y las posi- 
ciones de las estrellas deben de guardar entre sí la suficiente separación como para 
que dos no puedan incidir en la misma casilla de caracter (pues éstas sólo admiten un 
color). Este segundo método tiene la ventaja de ser más realista (visto en una televi- 
sión en blanco y negro), ya que las imágenes de las estrellas quedan más pequeñas y 
nítidas. 

El tercer método es una combinación de los dos anteriores. También queda limita- 
do a la representación monocromática, pero ofrece las máximas posibilidades de dife- 
renciar a las estrellas por su brillo. 


1. Trazado de puntos extras 


Introduce en el ordenador y haz que procese éste la rutina ““Magnitudes estelares 
1”, la pantalla se llenará de imágenes de estrellas que se empequeñecen progresiva- 
mente, formando un entramado regular en la pantalla. Cada una de las estrellas se 
representa inicialmente mediante un solo punto, que se agranda con las rutinas de 
DRAW que siguen inmediatamente. Esto se hace mediante el bucle FOR/NEXT n y 
las estrellas que primero se trazarán se eligen condicionalmente mediante: 
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IF n< 3 THEN DRAW 0,1 

IF n<6 THEN DRAW 1,0 

IF n< 9 THEN DRAW 0,—1 

SQO00 PRINT "Magoitudes 
1 "“ 

2010 REM Usando dibujos con elem 

entos de pantalla (puntos) extra 


estelares 


2350 BORDER Oí FAFER lí INK 9 
LET o 

¡0 FOR nl TO 12 

REM Dibuja la posicion del 
estrella 

2060 PLOT zon*10-150 

2063 REM Dibuja la estrella mas 


THEN DRAW 0,1 
Dibuja la estrella de b 
Lío 

z mié THEN. DRAW 1,0 

2005 REM Dibuja la estrella meno 
s brillante 

2090 1 1:22 THEN DEAN (cl 

2095 REM Las demas estrella 0cLup 
an um puto 
2100 NEXT nm 
OO LET o amzrOr 60 TO 20300 


Os Os Oe Qe E 20 0 
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| 
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| 
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l 
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— Y 


PLOT/ RESULTADO EN 
DRAW LA PANTALLA 


PLOT (un solo punto) 


IF n< 3 THEN DRAW 0,1 


IF n< 6 THEN DRAW 1,0 


IF n < THEN DRAW 0,—1 


Figura 8.9. Utilizando DRAW podemos agrandar el tamaño de las estrellas que se representan sólo por 
un punto, de forma que se vean mejor en la pantalla de televisión. 
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La figura 8.9 muestra detalladamente cómo se dibujan cada una de las imágenes. 
Sólo se añade un punto por cada línea condicional —el valor 1 en cada instrrucción 
DRAW. 


2. Tonalidades de color (en monocromía) 


Para preparar la tercera versión hay que borrar todas las líneas condicionales 
DRAW de la rutina, antes de que el ordenador la ejecute. Una versión práctica de es- 
ta rutina, para incorporarla a un programa más largo (con las limitaciones ya men- 
cionadas), tomará la forma: 


PAPER 0: INK 9 

FOR n = 1 ITO 12 

IF n< 6 THEN PLOT; INK 8—n; x(n), y(n): REM estrellas brillantes 
IF n>5 THEN PLOT; INK 2; x(n), y): REM estrellas débiles 
NEXT n 


La expresión INK 8—n controla el brillo relativo de las cinco primeras estrellas 
que tendrán valores de INK iguales a 7, 6, 5, 4 y 3 (blanco, amarillo, cyan, verde y 
magenta, respectivamente). El resto de las estrellas (n>5) tendrán un valor de tono 
INK 2 (rojo). Se puede incrementar el rango para incluir una estrella extremadamente 
mortecina mediante la impresión INK 1 (azul), pero en un cielo negro (PAPER 0), 
un solo punto azul pasará desapercibido. 


2000 PFRINT "Magnitudes estelares 


“== q 
o] 


2010 REM Tono de color. Gin 3010 
dra 
EDRDE 
LET i 

BRIGHT dí REN Kealza el Lon 


E Os PAFER lí INE + 


FOR n=l TO 12 
INE Pena REM Tono de la L 


REM Dibuja da posicion dal 
lla 


tridlantas 


liante AS 


l 
| 
1 
! 
1 
J 
| 
' 
' 
O, 
| 
l 
) 
! 
l 
1 
| 
| 
! 
l 
| 


poco brillante 


3. Trazado de más puntos extras y tonalidades de color 
(en monocromía) 


Reforma el programa “Magnitudes estelares 1”? para convertirlo en “Magnitudes 
estelares 3”” y hazlo funcionar. Si utilizas una instrucción de color para la representa- 
ción, debes ajustar el televisor a blanco y negro. Esto pondrá de manifiesto cómo el 
tono INK incrementa considerablemente el brillo de las estrellas, particularmente 
cuando se trata de estrellas mortecinas. Las limitaciones de este esquema se han men- 
cionado ya en esta sección. 


2000 PRINT "Magnitudes estelares 


ado dibujos con elem 
pantalla Guintaszj Bra 
(un alar) 
FAFER 1 INE 


TO 


INE Sena REM Toro dí 


Diliuja la p damn 
QA 


20653 RE la estrella mas 


DEAL 


Dibuja la estrella men 


239 REN chama SS IAN) 
LAN 
0 


OSO 
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Cartas estelares con control de magnitud 


Para incorporar cualquiera de las rutinas mencionadas anteriormente a programas 
más largos, habrás de cuidar el orden en que pintes cada una de las estrellas. Las más 
brillantes deben listarse primero, y se ha de proceder en orden decreciente de brillan- 
tez. Si una determinada constelación no tiene estrellas brillantes, será necesario dibu- 
jar varias veces la misma estrella antes de pintar las siguientes, hasta que el tono (INK) 
sea el correcto. Esto significa que deberás listar más posiciones aparentes de las que 
aparecerán al final en la pantalla. 

Para satisfacer estas condiciones con el primer método (trazado de puntos extras), 
hará falta utilizar mayor número de instrucciones condicionales, de manera que una 
constelación en particular se salte algunos de los puntos extras que, de otra forma, 
habrían de pintarse. Esto tomaría la forma: 


FOR n = 1 TO 30: REM 30 constelaciones 

FOR f = 1 TO (número de estrellas) STEP 2 

PLOT x(n,6), y(n,f) + 1) : REM x,y = coordenadas 

IF n=5AND f = 1 THEN GOTO XXXX: REM salta la rutina DRAW de la conste- 
lación 5, estrella número 1 

IF f<3 THEN DRAW 0,1 

IF f... 

NEXT f: NEXT n (NB línea XXXX) 


Gráfico estelares 


Este programita de demostración nos muestra cómo se pueden construir represen- 
taciones más complejas de las estrellas para incorporarlas a los mapas estelares. Estas 
imágenes representarían las estrellas más brillantes que tuviésemos que pintar median- 
te formas geométricas. 


El programa 


El programa se ha dividido en tres partes, tal como se indica mediante las instruc- 
ciones REM. La primera parte, hasta la línea 7, cuenta con la relación de imágenes 
numeradas de uno a cuatro por medio de la orden INKEYS$ de la línea 3. La línea 8 
contiene dos órdenes GOSUB —la primera condicional: 


GOSUB 100 ó 200 ó 300 ó 400 
en la forma GOSUB ax, donde ““a”” es igual al valor del INKEYS$ de la línea 4. En 


la línea apropiada del GOSUB se dibuja la forma estelar seleccionada. El programa 
regresa a la línea 8 para efectuar el segundo GOSUB (GOSUB 1000). 
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La tercera y última parte del programa, a partir de la línea 1000, utiliza la orden 
POINT, hacer una reproducción mayor de la estrella que acabamos de dibujar y que 
la veamos mejor. Para esto se utiliza un área de pantalla adyacente a las posiciones de 


las coordenadas “*x”” e ““y”” de la imagen de la estrella más pequeña, se utilizan dos 
bucles FOR/NEXT (n y f). Las líneas 1010 y 1020 toman la forma: 


1010 IF POINT (x +n, y + f) = 1 THEN PRINT... “>” (CHR$ 143) 
1020 IF POINT (x +n, y + f) = 0 THEN PRINT... “*:” (CHR$ 58) 


Si POINT es igual a 1, imprime un cuadrado (IM), es decir, se ha dibujado un punto 
en esa posición. Recíprocamente, si POINT es igual a O, se imprimen dos puntos (:) 
(es decir, no se ha dibujado ningún punto para esta posición). 

La línea 1020 no se necesita en realidad para definir la forma de la estrella, pero 
ayuda a localizar su posición relativa *“marcando”” los puntos no pintados. El progra- 
ma volverá sobre sí mismo para efectuar la selección siguiente. 

Se pueden incluir más figuras estelares en el programa, comenzando en la lí- 
nea 600 y ascendiendo de 100 en 100 (700, 800, 900, etc.), para que se ejecute la ins- 
trucción condicional GOSUB de la línea 8. El valor 4 que aparece normalmente en las 
líneas 3 y 5 debería corregirse para cada forma adicional que se incluya en el progra- 
ma. La instrucción final de cada sección nueva de trazado y dibujo debe concluir con 
RETURN. 

Es útil bosquejar las nuevas imágenes estelares en un papel cuadriculado antes de 
introducirlas en el programa, aunque no es esencial. Puedes comenzar, simplemente, 
con una instrucción PLOT x,y y añadir después las órdenes para dibujar (DRAW) 
(preferiblemente con valores pequeños y, desde luego, no mayores de 6) y hacer que 
se ejecute el programa para que te muestre el nuevo diseño. Si no te satisface, cám- 
bialo. Lo ideal sería tener todos los diseños nuevos en la porción de pantalla analiza- 
da por la orden POINT y representada en forma aumentada. 


Incorporación de resultados en un programa de mapas estelares 


Para representar algunas de las estrellas más brillantes, podría incorporarse una 
subrutina virtualmente idéntica a este programa en uno de mapas estelares. Para con- 
seguir que la subrutina funcione, se necesitan solamente las líneas 100 a 499 (además 
de cualquier línea extra que precises). Estas estarían en el área principal del programa 
que se ocupa del trazado de las estrellas, y podrían tomar la forma: 

Rutina para dibujar estrellas: “x”” e **y”” son las coordenadas. 
IF n = 1 THEN GOSUB 400 : REM mag 0 = brillante 

IF n = 2 THEN GOSUB 100 : REM mag 1 

IF n = 3 THEN GOSUB 300 : REM mag 2 

IF n = 4 THEN GOSUB 200 : REM mag 3 

If n>4 THEN PLOT x,y : REM mag> = 4 = débil 
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Esto supone que *“'n”” es el número del bucle FOR/NEXT que traza las posiciones 
de las estrellas. Por supuesto, éste debe corresponderse con el utilizado en el pro- 
grama de que se trate. Repararás en que las estrellas 1 a 4 en el bucle de arriba están 
diseñadas de modo que vayan en orden decreciente de brillantez, pero la condición 
GOSUB no necesita estar en el mismo orden, como podemos ver en la figura 8.10. 
Todas las estrellas de números mayores que cuatro se trazan mediante un solo punto, 
y representan a las estrellas más mortecinas. 


SraFicos de 2 UreaLllasz L 3 Led 
EA 
E Bn 
- ta 
: E - 
XX: 
Ta Fa aa d E estra Ll 4 E E HE 


mia 
S a la ; 0 
sé E ls 
- , pe - 
SraFido ada ceLLaos y: | 
A 
L Ñ A Al 


: ML 


Figura 8.10. Formas de representar estrellas con diferentes brillos. A la izquierda se 
ve el tamaño real y a la derecha una ampliación para estudiar cómo están formadas. 
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Estas líneas condicionales citadas anteriormente sólo son un ejemplo de las que 
podrían utilizarse en el programa. Las permutaciones son infinitas. Supón, por ejem- 
plo, que las primeras tres estrellas van a tener magnitud O (la más brillante) en cada 
una de las constelaciones del mapa estelar, y las dos siguientes, magnitud 1. La rutina 


leería entonces: 


IF n < 4 THEN GOSUB 400 : NEXT n : REM mag 0 estrellas 1 a 3 
IF n < 6 THEN GOSUB 100 : NEXT n : REM mag 1 estrellas 4 y 5 
If n =6 THEN GOSUB 300 : REM mag 2 estrellas 6 


y así sucesivamente, hasta el final de las secuencias que se requieran. Fíjate en que las 
dos primeras líneas condicionales deben incluir la instrucción NEXT n para que, de 
esta forma, el programa no abandone la línea hasta que no se satisfaga la condición. 


RED ARA EIA IDE REE IE E E E 


2 EFRINT "Graficos de estrella 


REM ee ed E E DE E E dE JE e dE E E AE dE E E dE 


CC PRINTO O" dl a 4="p INEEYS 
| PAUSE 01 LET a=VAL  TNEEYS 
LS 1 1F as4 THEN RUN 


10 
100 
110 
120 
199 
200 
210 
299 
300 
310 
399 
400 
410 
420 

30 
440 
499 
999 

1000 


LET x=992 LET y=80 

FRINT AT 0, 2lia 

GO SUBE a*r100: GO SUE 1000 
FRINT AT 0,0: 60 TO 1 

ELE RARI R  AE 
FLOT x,ysz DRAM 2,2 

DRAW 2 DRAW 22 

DRAW 2,2 

RETURN 

FLOT x.y: DRAW 0,2 

FLOT x+1l,y+li DRAW 2,0 
RETURN 

EFLOT x.y: DRAW 1,1 

DRAWN lila DRAMWN 1,1 
RETURN 

FLOT xpy: DRAN 4,0 

PLOT x+2, ys DRAN 0,4 
FLOT x,yuzz DRAW 4,4 

FLOT x,y+2 DRAN 4,-4 

PLOT OVER 13x+2,y 

RETURN 
REA A E A A 
FOR n=0 TO 31 FOR £f=0 TO 5 


ci mo 


y 1010 IF FOINT (x+n-1,y+f-2)=1 TH 
1 EN —FRINT AT 10+f,16+n3C0HR$ 143 
1011 1F FOINT Gen-1, y+f-2)=0 TH 
2 EN -—PRINT OAT 10+f,16+n3CHR$ 58 
y 
| 
l 
| 


1020 NEXT 4: NEXT ni: RETURN 
POD FRE Hee: E REA A 
9990 SAVE "Grafest." 


—... 


Estrellas parpadeantes 


Hay dos formas básicas de conseguir que una estrellas (un simple punto) se en- 
cienda y se apague utilizando la orden OVER, y pueden resultar útiles para hacer que 
un punto en particular llame la atención en tus programas de mapas estelares. Tienes 
la opción de que la estrella permanezca visible o RSE al final de la secuencia 
de parpadeo. 


. 


Rutina que utiliza dos bucles FOR/NEXT para simular el parpadeo 
de una estrella 


La siguiente rutina de una línea, muestra los usos principales de los dos bucles 
FOR/NEXT. El f controla el número de parpadeos y el n actúa para encender o apa- 
gar (1 ó 0), mediante la orden OVER. Para que el parpadeo se haga manifiesto y no 
pase desapercibido, hay que incluir una pausa (PAUSE 10). Verás que el bucle n ter- 
mina con el valor 0: de esta forma, la estrella permanece visible después de que ha fi- 
nalizado la rutina. Si los valores del bucle FORT/NEXT n están invertidos, así: 


: FORn=0TO 1: ... 


(omitiendo la rutina STEP, ahora superflua), la estrella desaparecerá al finalizar la 
rutina con la orden PLOT OVER 1, que borra el punto. 


1000 PFRINT "estrella parpadeante 
"y FOR 4=0 TO 10: FOR n=u1 TO O $ 
TEFP «dí PLOT OVER ni200, 100: Fé 
USE 10% NEXT mi NEXT + 
Rutina que utiliza ún solo bucle FOR/NEXT para simular 
el parpadeo de una estrella 


Esta rutina es, probablemente, de uso más sencillo, y demuestra la forma tan sin- 
gular que tiene de operar la orden OVER. Esta orden se coloca siempre a 1 (se le da 
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siempre el valor 1), con lo que no se pinta la posición del punto (lo *“hace”” invisible). ' 
Sin embargo, al no “pintar”? una posición de punto “no pintado””, mediante el valor 
siguiente del bucle FOR/NEXT, éste se hace visible. De esta forma, la orden OVER, 

a través del bucle FOR/NEXT, será 


OVER 1... OVER 0 ... OVER 1... OVER O ... 


y la estrella parpadeará en la forma deseada. 

Si el bucle FOR/NEXT tiene un número de pasos efectivos impares, (2 TO 10 = 
= 9 pasos), el valor final de la orden OVER será O, y la estrella quedará pintada y vi- 
sible al finalizar la rutina —véase la línea 1000—. Si el bucle FOR/NEXT tiene un 
número par de pasos (1 TO 10 = 10 pasos en la línea 1001), la estrella desaparecerá 
con una condición final de PLOT OVER 1. 


1000 PRINT "parpadeo encendido": 
IRE TO 10: PLOT OVER 17200 
100, FASE 10: NEXT € 


1001 FRINT "parpadeo : 
OR f£=1 TO 102 FLOT 
00. FAUSE 10: MEXT + 


Movimiento estelar 


La Astronomía, el estudio de los cielos, es la ciencia más antigua, pues data del 
año 2000 antes de Cristo, de los caldeos de Asia Menor, que dieron nombre a los gru- 
pos de estrellas o constelaciones que hoy nos son familiares. Una característica impor- 
tante de las constelaciones es que, después de 4.000 años, las vemos idénticas a como 
las vieron aquellos astrónomos, a pesar de que hoy sabemos que la mayor parte de las 
estrellas se mueven a través del espacio a decenas de kilómetros por segundo. 

¿Por qué las constelaciones no se han deformado hasta hacerse irreconocibles, a 
causa de este movimiento aleatorio? Simplemente porque, al estar tan lejos las 
estrellas —las distancias se miden en decenas de años luz— los movimientos indivi- 
duales no son detectables a simple vista. Solamente una estrella, Arturo, que se en- 
cuentra a una distancia de 36 años luz, se ha movido perceptiblemente desde que se 
trazara el primer mapa estelar griego, e incluso esta variación es muy pequeña —apro- 
ximadamente, una desviación igual al diámetro de la Luna (1/22). 

Para percibir el cambio de forma de las constelaciones, necesitamos disponer de 
una escala temporal de cientos y cientos de años. Este programa simula este efecto en 
dos grupos seleccionados de estrellas (el Carro y Orión). Los datos están tomados de 
la obra de Hutchinson *““El esplendor de los cielos””, 1923. Tienes la opción de hacer 
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que las estrellas dejen ““estelas”” en la pantalla o de trazarlas mediante un punto mó- 
vil. La representación en pantalla se hace en vídeo inverso-BORDER 0: PAPER 0: 
INK 9 

Para que el trazado de la constelación seleccionada sea lo más fluido posible, las 
posiciones individuales de las estrellas en a$ deben introducirse en matrices dimen- 
sionadas *x”” e *““y””, coordenadas de posición de cada estrella. Estas matrices incor- 
poran los llamados “valores de movimiento propio”? en m$ Más adelante, explicare- 
mos con detalle cómo se calculan estos valores de m$. 


Ahorro de memoria 


El método que se utiliza para manipular los datos ahorran memoria RAM del 
Spectrum; aunque en este caso no tenemos realmente necesidad de ello, la técnica 
puede ser interesante y quizás útil para tu programación. Como habrás notado, a$ 
contiene las posiciones de las estrellas y éstas se expresan mediante números de 2 bytes 
(véase línea 90). 
línea 90 09 (**x”” coordenada estrella 1) 

17 (**y”” coordenada estrella 1) 
18 (**x”” coordenada estrella 2) 
20 (**y”” coordenada estrella 2) 


y así hasta el final (estrella 16). 
m$ contiene dos números de 1 bit por estrella, para indicar el movimiento “xx”, 
“*yy”” de la estrella; así, la longitud (LEN) de las respectivas m$ es precisamente la mi- 
tad que la a$ asociada. Las matrices a$ y m% se repiten hasta el final de los datos: 
cada constelación utiliza una pareja. Para que al procesarse el programa se utilicen 
los datos correctos, debe incorporarse una instrucción condicional GOTO inmediata- 
mente después de cada dos cadenas alfanuméricas, es decir: 


110 1F b$(1) = “P”” THEN GOTO 150 


luego, el programa saltará fuera de la zona de datos (DATA), portando los últimos 
valores de m$ y a$ leídos. Las dos últimas cadenas no necesitan una instrucción con- 
dicional GOTO, ya que se las selecciona por defecto. Entre las líneas 110 y 120 hay 
espacio para que introduzcas tres constelaciones más mediante tus propios datos, sin 
necesidad de reenumerar líneas o utilizar instrucciones multilínea. 

Recuerda que la primera letra de b$ que se usa en el INPUT de la línea 30 para el 
nombre de la constelación, debe estar incluida en la instrucción condicional GOTO. 
En la líneas 110 es **Os”” para el Carro. Al requerir que solamente hayan de ser 
correctas dos letras (las primeras), el programa ignorará las faltas ortográficas que 
cometas (una precaución necesaria, por cuanto algunos nombres de constelaciones 
pueden ser muy difíciles). 
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Selección de datos 

La longitud (LEN) de m$ se utiliza ahora para dimensionar las matrices *x”” e 
“y”, y la rutina de la línea 270 se usa para introducir los datos en estas matrices. En 
el caso de Orión, en el que hay que calcular, para los subsiguientes trazados, 20 estre- 
llas y 20 posiciones por cada una, esto supone 400 posiciones *“*x”” y'400 posiciones 
“y”. El Spectrum emite el mensaje ““estoy calculando””, mientras efectúa los cálculos 
necesarios. Por supuesto, podrías colocar todas las constelaciones (ya se llamen para 
su representación inmediata o no) en una matriz dimensionada, pero 800 bytes por 
constelación parecen un tanto innecesario, al menos para este programa, en el que las 
matrices se dimensionan solamente si se llama a esa constelación para representarla. 


Valores de movimiento propio 


El objetivo de este programa es colocar los valores de movimiento propio. en m$, 
lo que permite a las estrellas moverse en cualquier dirección y a cualquier velocidad a 
través de la pantalla. La figura 8.11 explica el fundamento. 


ne n no 


COLT sr 


Figura 8.11. Cuadrícula que se emplea en el programa de “Movimiento estelar”? para estimar los movi- 

mientos relativos de las estrellas. Las coordenadas “*xx”” e ““yy”” se miden desde la esquina inferior derecha. 

Como se puede observar, el este y el oeste están colocados al contrario que en los mapas; en Astronomía es 
usual representar el cielo con el.este a la izquierda del sur. 


La cuadrícula se divide en nueve cuadros horizontales (coordenadas “*x””) y nueve 
verticales (coordenadas **y””), 81 en total. A diferencia de los sistemas PRINT y PLOT 
del Spectrum, estas coordenadas comienzan a contarse en el ángulo inferior derecho. 
Una estrella inmóvil estaría situada en el centro de la cuadrícula y tendría coordena- 
das “xx”” e “yy”” de 55. Cuando una estrella se sitúa más lejos del centro de la red, su 
velocidad se incrementa proporcionalmente y en la dirección indicada. Por ejemplo, 
un valor 46 representa un pequeño movimiento hacia el noroeste (esquina superior de- 
recha). Un valor 19 indica el mayor movimiento hacia el noroeste, y así para todos los 
puntos. La figura 8.12 muestra algunos valores típicos. 
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m$ ES “19” 


Figura 8.12. Ejemplo de valores que pueden usarse en el programa. Cuanto más lejos estén las coordena- 
das del centro de la cuadrícula, más deprisa se moverán en esa dirección. Los valores de las coordenadas se 
almacenarán en m$. 


Antes de introducir el valor de m$ en las matrices “*x”” e “*y””, se resta 5 a cada nú- 
mero. Así, nuestro valor de m$ 55 se queda en 00, es decir, sin movimiento relativo, 
y 46 quedaría como —1 + 1. De esta forma, en m$ sólo tenemos números positivos, 
aunque algunas veces se requieran valores negativos. La conversión se efectúa en las 
líneas 180 y 190. El bucle FOR/NEXT f de la línea 220, asigna los valores a las matri- 
ces “x”” e “y””, que se incrementan por los valores de m$ en las líneas 230 y 250. En 
la representación final, el bucle FOR/NEXT contiene 20 pasos (STEP) y la mitad 
(paso 10) representa la forma de la constelación seleccionada, tal como la conocemos 
en: la actualidad. Con todo ello, el programa resulta conciso, pero de potentes re- 
sultados. 


Representación en pantalla 


El método para preparar los mapas estelares en el Spectrum se describe más ex- 
sahustivamente en el programa Mapas de estrellas. Aquí es suficiente decir que este 
ejemplo emplea una resolución de pantalla de 64*44 posiciones de puntos en los datos 
de a$, y que se expande al total de 356*176 del Spectrum, multiplicando por 4 cada 
posición pintada en la línea 360. Si amplias el programa para incluir tus propias cons- 
telaciones, procura eludir el borde de la pantalla. El movimiento propio en un movi- 
miento estelar provocará que el programa se pase si intentas dibujar con valores ma- 
yores que las coordenadas máximas (255 para “*x”” y 175 para ““y””). Las figuras 8.13, 
8.14 y 8.15 son dos copias típicas de la pantalla. 


Magnitud estelar 


Los astrónomos miden el brillo aparente de las estrellas mediante una escala lla- 
mada magnitud. La primera clasificación se debe a Hiparco, que en el 127 antes de 
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Figura 8.13. La Osa Mayor en el pasado: año —80000. 


.-! Tr y 


Figura 8.14. La Osa Mayor en el futuro: año 100000. 
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PEREA e E EA EA 
10 REM. Movimiento estelar 
REM HR A RM REE dd A ER 


a INPUT FLASH 13 "Osa mayor 11 
Orion "bw 
40 INFUT "Trazado con rastro? 
sin) "3 LIME 1% 
ca IE c$=ps$ (01) THEN. 60 TO 290 
60 LET cé=xp$( TO 2) 
dd pe Es 
BO INE: da y TO %i FRINT 
EFEC m3 FLASH 11 AT er LR "IA 
FLUTANDO": o ni ae SUE 300 
EEE AI Aa A AE EA AE a 


DD 5.0 ) 


O 


53 503 he $e he 5 eS He E $ 
091718: 
$ de 

ET mb="359493B484268484" 
IF b$( TO 2)="09" THEN 60 


4 47 qe 


ao 0 0. 0 


Li EPARERIDIN ERRE 
140 Za posiciones esk, 
141 HEM ARAFO 


150 DIM (LEN mé, 20) 
160 DIM NN mé. O) 
170 FOR TO LEN mé STEF 2 


mé Cr) 

UE 

a$ (Mid TO hera 

as$(hrl TO hidra 
SO 


Qe 0-20 
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o 


E 


6. 03001 6 0.0 0.0 0 


O 
O 


A ES 
230 REM pantalla 

2381. REM RR e II de de 
290 CELS: PRINTO INE 4ib8,"< 1 
O" CHESS 1303% 3%, "en el pasado"* 
des 0) sd 

200 FOR n=1 TO 20 


220 PRINT AT 2,6ry4" . 
250 IF té="s8" THEN FOR f=1 TO 
O Y 

AQ IE tés" THEN FOR £=04 TO 
1 

A REAL RR RI IA 
230 FOR p=l TO LEN mé STEF 
2060 PLOT BRIGHT 13 OVER Fix Cp, 
34, y Ca, nm) 4 
270 NEXT p: 
estrellas 

371 REM. 444 ee de e DE E e 
60 SUR 


REM dibuja las e 


UE 420 

400 FASE 1+10%* (Clef) 

410 MEXT € 

4ZÓO NEXT ni 60 SUB 300 

42 60 TO 30 

ARO REM RAI e dE A 
AO. REM imprime comentarios 
O E 
440 FRINT O INE SAT 1,05 "Hoy U3 
ber ts 60 SUE SOS 

430 PRINT O INE 44T 1,0+"y en e 
Ll FUTURO Mao RETUJEN 

ALGO REZA 6 REI A A A dd 
490 REM parpadeo de borde, beep 
A ES 
300 FOR v=0 TO Sí FOR k=7 TO O 
STEFR lí BORDER ki BE 01, AO ke 
O NEXT ki NEXT ví RETURN 

GOOO-— RED EI DR E AR dl A 
9990 SAVE "Movesto" LINE 1 


2 5 0 o 9. 5 2. 3. 


So ss Ue 3 


uprtres a | 


5 


Hs 
h 
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Figura 8.15. Orión en el futuro: año 200000. 


Cristo, describió “las estrellas más brillantes con magnitud 1”” y “las menos brillantes 
con magnitud 6””, con cuatro niveles intermedios. Este sistema se utiliza aún, básica- 
mente, pero, por supuesto, corregido y explicado matemáticamente, principalmente 
por Pogson, en el siglo pasado. Pogson atribuye un valor de 2,512 a la relación en- 
tre la magnitud de una estrella y la de la siguiente, lo que supone que la relación entre 
una estrella de primera magnitud y otra de sexta magnitud, apenas visible a simple 
vista, será de 100: 1%, 

Pogson observó también que el logaritmo decimal de 2,512 es precisamente 0,4, lo 
que simplifica notablemente el cálculo. 

Este programita utiliza un solo bucle FOR/NEXT para imprimir en la pantalla 
una serie de magnitudes, desde —26 (el sol) hasta +24 (la estrella más débil detectada 
con el telescopio de 200 pulgadas de Monte Palomar, California). También se impri- 
me (aparte de los brillos reales) la relación respecto a la estrella de referencia Vega. 
Nuestro Sol es 25.000.000 (2,51 E 10) de veces más brillante que Vega. Igualmente, 
Vega es 25.000.000 de veces más brillante que una estrella de magnitud +24 (ver 
figura 8.16). 

Utilizando una serie de instrucciones PRINT condicionales, se añaden los nom- 
bres de los principales objetos que corresponden a magnitudes particulares. Se ha 
hecho que Vega parpadee, con objeto de identificarla fácilmente. 

El Spectrum no emplea logaritmos decimales, sino logaritmos naturales (función 
LN), en base 2.71828..., de modo que la ingeniosa relación entre logaritmos decima- 
les de Pogson tiene que adaptarse a este programa, mediante la línea 80, para dar una 
relación de 100:1 sobre cinco magnitudes. 


* En resumen: “Las estrellas se clasifican según una progresión de razón k = 2,512” [N. del T.]. 
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ES 


Figura 8.16. Tabla de magnitudes estelares. A la derecha se expresa el brillo real en 
comparación a la estrella Vega que se toma como referencia. A la izquierda, la escala 
de magnitudes de relativas usadas habitualmente por los astrónomos. 


O REM III IE IEA AE 
10 REM Magnitud estelar 
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41 PRINT C'Luna llena" AND n=- 
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Capítulo 9 
Programas adicionales 


He recopilado aquí una serie de programas que no encajaban bien en los capítulos 
anteriores, y que espero encuentres interesantes, aunque sean todos distintos entre sí. 


El catálogo Messier 


El hecho de que un cuerpo teleste lleve el nombre de una persona constituye un 
timbre de gloria para ella, pero los descubrimientos ocasionales son excepcionalmente 
raros, y hace falta conocer muy profundamente el firmamento para abrigar alguna es- 
peranza de éxito. 

Curiosamente, el astrónomo francés Charles Messier es célebre, no tanto por los 
muchos cometas que descubrió, sino por su Catálogo de 104 objetos no estelares 
(publicado en 1784), que constituye una seria advertencia para los incautos que man- 
tengan falsas creencias: Cada objeto del “Lista Messier””, es una remota nebulosa o 
galaxia del firmamento profundo que parece un cometa cuando se observa a través de 
un pequeño telescopio o de unos prismáticos. 


El programa 


El siguiente programa, diseñado en base a la “Lista Messier””, indica cómo se 
pueden almacenar fácilmente datos mediante CODE formando una cadena ordenada. 


1) Listado de los 104 objetos en orden numérico, con la constelación a la que perte- 
necen y el tipo de objeto. 


2) Adivinanza sobre dónde está localizada una selección aleatoria de esos objetos. 


Para avivar las representaciones y señalar tu puntuación, con la opción 2, se utili- 
za bastante el color del Spectrum. 


En la segunda opción ve va recortando lentamente tu título inicial de “ASTRÓ- 
NOMO” cada vez que respondes incorrectamente. 
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Almacenamiento de datos 
Los datos se almacenan de la siguiente forma: - 


a$ = 104 caracteres en el margen 0 y 9 y A a Y (total = 35) para las constelaciones que 
contienen los 104 objetos. ; 

c$ = 35 nombres abreviados de las constelacionés, tres caracteres. 

k$ = 104 códigos (CODES) numéricos en el margen 0 a 5 (total = 6 CODES) para el 
tipo de objeto. 


El código ASCII de los caracteres del 0 a 9 de A a Y no es consecutivo en el 
Spectrum, al contrario de lo que ocurre en el ZX-81 (para la que se diseñó este 
programa). 


LITA 
ral 


card da 
dl 4 
ne db! 
AE 
LA TL 


A! 
AA 
LA 
E 

EA LA 


Era y ' ju. ME 
O 
E LS IT LS 


Figura 9.1. Lista de los primeros y últimos objetos de Messier. 
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Figura 9.2. Ejemplo de funcionamiento del programa Messier en forma de test. 


Por eso, a$ se opera de dos formas para extraer el dato usado en la variedad z, co- 
mo sigue: s 


270 IF (CODE a$ (n)< 58 THEN LETz=1+ VAL a$ (1): GOTO 290 
280 LET z = CODE a$ (n)—54 


Las líneas 410 y 420 operan de la misma manera. Consulta el Manual del 
Spectrum para ver los valores devueltos por los distintos códigos. k$ se emplea para 
devolver un valor usado en el GOSUB condicional, por ejemplo: 


320 GOSUB 100 + VAL k$(n)*10 (GOSUB 100, 110, 120, etc.) 


Y luego imprimir el tipo de objeto, por ejemplo, ““un cúmulo abierto””, y hacer que se 
ejecute de nuevo. La línea 480 opera de un modo similar. 


Ejecución del programa 


Una vez escrito el programa y después de que el ordenador lo haya ejecutado sa- 
tisfactoriamente, se puede comprobar la representación en pantalla con las figuras 9.1 
y 9.2. Es importante no olvidarse poner mayúsculas (CAPS LOCK), pues en la op- 
ción de test no se aceptarán las respuestas en minúsculas. 

Si necesitas una pequeña ayuda y dispones de una impresora ZX, puedes copiar la 
«Lista Messier», página a página, con 


BREAK COPY ENTER 


Cuando finalices la copia, da la instrucción CONTINUE ENTER para la página 
siguiente. 
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2 REM PRI OAN 
10 REM Lista y Lest amos d apo 
11 REM A A 
20 DIM bé): TIME 9 
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3 RETURN 
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Telescopio 


1) 


2) 
3) 
4) 


5) 
6) 


Este programa permite responder a las siguientes cuestiones: 


¿Cuál es la estrella más mortecina que se puede contemplar con un telescopio de 
6 cm o de 6 m? 

¿Cuál ha de ser la potencia útil máxima y la mínima del ocular que utilicemos? 
¿Por qué es inadecuado visualmente el telescopio de Hale de 5 m2? 

¿Cuál es el tamaño de la superficie, en grados, que puede cubrir una cámara con 
una lente de 35 mm? 

¿Qué resolución fotográfica.y visual tiene un telescopio de 15 cm? 

¿Qué rendimiento astronómico puedo esperar de mi telescopio/cámara? 


La cuestión última engloba la mayor parte de las anteriores. 


Las respuestas 


La única particularidad de este programa, reside en que contiene todos los datos 


referidos a la utilización en Astronomía de telescopios, prismáticos y cámaras. Sólo se 
han de introducir dos datos: apertura del instrumento, en milímetros, y relación fo- 
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cal, o relación entre el diámetro de la lente (o de la cámara, por ejemplo) y la distan- 
cia focal que, a su vez, es la distancia entre la lente y la imagen que forma. 

A partir de estos datos de entrada se pueden obtener, en un segundo, muchos da- 
tos para los que, de otra forma, necesitaríamos una biblioteca de referencia. 

Escribe el programa y haz que el ordenador lo ejecute. 


El programa 


Este programa está basado en mi propia experiencia de muchos años ante, el teles- 
copio. El poder de resolución visual o “Darwes”” de un telescopio se refiere a un ins- 
trumento perfecto, perfectamente alineado en una noche perfectamente clara, libre de 
turbulencias atmosféricas (en la que centellean las estrellas) y unos ojos experimenta- 
dos. Los restantes datos no plantean problemas, algunos son indiscutibles (como la 
potencia de un ocular) y otros más conflictivos (como la máxima magnitud obser- 
vable a simple vista en una noche clara lejos del reflejo de la ciudad). 


La figura 9.3 muestra una copia de la pantalla para una cámara con objetivo f/4 y 
distancia focal 120 mm, y la figura 9.4 una copia de la pantalla con los datos de mi 
propio telescopio. Puede ser útil contrastar cada uno de los empleos con las corres- 
pondientes lineas del programa para explicar el significado de los datos. 

Las primeras dos líneas del listado contienen los datos de la apertura y la relación 
focal; el producto de ambos nos da (tercera línea) la distancia focal. Las dos líneas si- 
guientes contiene las potencias máximas y mínima de los oculares del sistema y sus 
respectivas distancias focales. 

La línea que va a continuación de todas ellas en la figura 9.3 contiene el siguiente 
comentario, referido a la lente de la cámara: 


““Objetivo no apropiado.”” 


ASTROS: 


Figura 9.3. Características de un telescopio de 30 mm y distancia focal de 120 mm. 
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Figura 9.4. Características de un telescopio de 444 mm y distancia focal de 
1.996 mm. 


Lo que se resuelve cortando A$ y T$ en la línea 20, de acuerdo con las instruc- 
ciones condicionales de las líneas 170 y 180. 

En este caso, la distancia focal es menor de 300 mm, por lo que no se considera 
como telescopio. ; 

El siguiente grupo de cuatro líneas se refiere especificamente alas características 
fotográficas del instrumento. Las líneas se refieren, por este orden, al “*escala de pla- 
ca”, o número de segundos de arco por mm de película, al área, en grados, que abar- 
ca una cámara de 35 mm, la potencia de resolución de la película TRI-X, en segundos 
de arco, y, finalmente, la estrella más mortecina que se puede registrar en una exposi- 
ción, antes de que nos influya la luz difusa. 

El siguiente grupo de dos líneas se refiere al poder de resolución visual (según la 
fórmula de Dawes) en segundos de arco y a los límites del campo visual del instru- 
mento. Observa que un determinado telescopio o una determinada cámara registran 
estrellas en la película con una amplitud 1,5 veces menor de lo que el ojo humano re- 
gistraría con el mismo instrumento. Esto se debe a que el ojo (una vez adaptado por 
completo a la oscuridad) no aumenta su capacidad visual después de un cuarto de se- 
gundo, por mucho que mire a través del ocular, mientras que las películas fotográfi- 
cas elaboran una imagen perfecta lentamente, en segundos, minutos e incluso horas. 

El ojo humano es mucho más sensible que la película más rápida 1000 ASA, pero 
se cansa fácilmente. También la potencia de resolución del ojo —punto por punto— 
es superior a todas las películas, excepto la más lenta, la 20 ASA. 

La parte final del listado nos muestra algunas distancias focales típicas de oculares 
y la potencia efectiva con las lentes correspondientes. Esto está hecho mediante el 
bucle FOR/NEXT en las líneas 250 a 270. En la línea 290 se incluye una opción para 
sacar una copia de la pantalla. 
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Interpretación de los resultados 


La experiencia práctica nos dice que es absurdo utilizar un telescopio de más de 
500 aumentos. La atmósfera terrestre no es nunca lo suficientemente estable como 
para soportar semejante ampliación, sin deterioro de su nitidez y transparencia. La 
línea 100 introduce este límite superior: por otra parte, la línea 90 determina que el 
límite máximo sea la apertura X 2. La menor potencia útil del ocular viene dada por 
el diámetro máximo de la pupila humana, 7 mm cuando se ha adaptado a la oscuri- 
dad. La experiencia de numerosas pruebas me ha llevado a adoptar un diámetro de 
6 mm. Efectivamente, cuando la potencia del ocular es demasiado pequeña, no llega a 
la retina toda la luz que recibe el telescopio, debido a la limitación física del diámetro 
del iris del ojo. 

En el caso del telescopio de Halle de 200 pulgadas, de Monte Palomar, con una 
apertura neta superior a los 5.000 mm, necesitaríamos una potencia ocular mínima 
superior a Xx 750 para que llegase al ojo la luz, por la razón mencionada. Este teles- 
copio gigante no está construido para que se mire por él, sino que es una enorme cá- 
mara para escudriñar las regiones más remotas del cosmos. 

Las siguientes variables contienen las distintas fórmulas utilizadas en el programa: 


A =apertura neta, en mm. 

F =relación focal del sistema. 

FL = distancia focal del sistema, en mm. 

L  =potencia ocular menor. 

H =potencia ocular mayor. 

V = limitación visual de la dimensión estelar. 
P  = tabla escalar en segundos de arco/mm. 


Las dos últimas variables se usan también para lo siguiente: 


P/100 = Amplitud del campo, en grados. 

P/S0  =Potencia de resolución de la película TRI-X en segundos de arco/mm. 
V + 1,5 = Magnitud de fotolimitación. 

114/A = Resolución visual Dawes. 
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Test de estrellas 


Este es un corto programa de demostración, que muestra cómo resolver una sen- 
cilla adivinanza, mediante preguntas y respuestas. 

Obviamente, la adivinanza no tiene por qué referirse a la Astronomía, pero este es 
el tema de nuestro libro. El programa comienza con sólo diez nombres de estrellas, 
agrupados en parejas en a$, demasiado pocos para que sea realmente efectivo. Los 
nombres alternativos de cada estrella son, en el ejemplo, “Antares = Alpha Scorpio”, 
“Regulus = Alpha Leonis””. De este modo, el programa está preparado para que el 
usuario lo amplíe, quizás con nombres de parejas totalmente distintos. 
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El programa 


El programa funciona del siguiente modo: Una matriz dimensionada en la línea 30, 
acepta (en este caso) 10 nombres de 13 caracteres como máximo para que se puedan 
contener las a$ más largas a$(2), a$(6) y a$(10) tienen todos un total de 13 letras y es- 
pacios. Una matriz de una dimensión, b$(13), está preparada para recibir las respues- 
tas que se introducen (INPUT) en la línea 230. 

El ordenador plantea al usuario diez cuestiones, por medio del bucle FOR/NEXT, 
en línea 160. La variable **z””, en la línea 170, selecciona un número aleatorio 
comprendido entre 1 y 10, y representa en la pantalla el valor de a$ con este número. 

El ordenador decide también que la respuesta será: 


a$íz +t) 


donde la variable **t”” se comporta como un conmutador. 
Ejemplo: 


ilfz=1thent=1 
if z=2 then t =-—1 


y así para cada número par o impar de “*z””, de manera que “t”” tenga un valor de 1 
6 —1, Según el caso. Si se comprueban los valores de a$(1) y a$(10) en las líneas 40 
a 130 inclusive, se puede ver que el ordenador ha identificado cada respuesta correcta- 
mente, agrupando af$ en parejas. 

En la línea 230 se introduce la respuesta y se representa en pantalla sobreimpri- 
miendo el signo **?”” mediante la expresión PRINT CHR$ 8; b$ . Las líneas 310 y 320 
anotan las respuestas y totalizan el número de resultados correctos, con las variables 
de puntuación que se representan al final del bucle **f””. 

El programa efectúa un desplazamiento automático de la pantalla mediante la ins- 
trucción POKE (POKE 23692,.255) escribiendo en la parte inferior de la pantalla por 
debajo de la linea número 21, de forma que las preguntas y respuestas ascienden des- 
de la parte inferior de la pantalla, próxima a la línea 22. Esto se efectúa mediante la 
línea 350. La figura 9.5 es una muestra típica de la representación en pantalla. 

Aunque el ordenador busca la respuesta correcta en letras mayúsculas y minúscu- 
las, no hay suficientes permutaciones en un margen numérico de O a 10 sin que se pro- 
duzcan frecuentemente repeticiones. Idealmente, el número mínimo de preguntas po- 
dría ser 30, más o menos, es decir, 15 parejas de preguntas/respuestas, aunque debe- 
rían ser más para evitar repeticiones. El programa se puede modificar para que pueda 
recibir, con cambios mínimos, preguntas extras que se pueden efectuar de dos ma- 
neras. 


l. Lista adicional en ag 


Esto es bastante sencillo y supone, simplemente, la introducción de más valores a$ 
en el listado, comenzando con a$(11). Suponiendo que se mantienen en el listado las 
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Figura 9.5. Ejemplo del funcionamiento en pantalla del test de estrellas. 


diez primeras preguntas/respuestas. Para mayor claridad, se podrían reenumerar las 
líneas 40 a 130 (quizás como líneas 40 a 50 inclusives) y los nuevos datos añadidos a$ 
comenzarán en la línea 51: 


51 LET a$(11) = “*... nombre est. 6a....”” 
52 LET a$(12) = “*... nombre est. 7a....”” 
53 LET a$(13) = “*... nombre est. 6a ...”” 
54 LET a$(14) = “*... nombre est. 7a ...”” 
55 LET a$(15) = ““... 


y así con todos los datos extras. Finalmente, hay que modificar la matriz dimensiona- 
da de la línea 30 para que tenga en cuenta las preguntas extras excluidas: 


30 DIM a$ (número total en a$, 13) = DIM b$ (13) 
y modificar el último valor en la línea 170: 
170 LET = 1 + INT (12ND, número total de preguntas en a$) 


El programa se puede ejecutar ya con RUN (RUN, porque todo el programa está en 
el listado). 


2. Subrutina INPUT 


No es necesario que aparezcan en el programa las preguntas y respuestas, y se 
pueden introducir mediante una subrutina del siguiente modo: 


237 


— Borra las líneas 20 a 130 inclusive. 
— Modifica la línea 280 (última orden): pon GOTO 1 (en lugar de RUN). 
— Añade la subrutina 400 DIM a$ (50,13): DIM b$(13). 


Estas modificaciones nos permiten procesar 50 preguntas/respuestas -25 parejas— de 
un máximo de 13 caracteres de longitud, incluidos los espacios. 


410 FOR n=1TO 50 

420 PRINT n; *”; LETc$ =*“”” 
430 INPUT c$: PRINT c$ 

440 IF c$ = “FIN” THEN STOP 
450 LET a$(n) = c$ 

460 NEXT n: STOP 


La subrutina comienza con GOTO 400 y las parejas de preguntas/respuestas se 
introducen secuencialmente. No es necesario llenar totalmente la matriz af si se te 
acaban las preguntas. Limítate a dar la orden “*stop”” para que el programa se detenga, 
mediante la instrucción de la línea 140. Para mayor precaución, puede guardarse 
(SAVE) ahora el programa, mediante la orden GOTO 9990 y verificarlo (VERIFY). 
Modifica la línea 170: 


LETZ = 1 + INT (RND*(n— 1) 


La variable ““n”” tiene el último valor + 1 utilizado en el bucle de las líneas 410-460. 
El programa debería guardarse y verificarse como versión número 3, mediante la 
modificación de la línea 9990, de modo que sea: 


9990 SAVE “Testest 3”” LINE 1 


y luego, como orden directa, GOTO 9990. La modificación asegurará que el progra- 
ma comience automáticamente cuando lo cargemos con LOAD **””, o LOAD “*Tes- 
test 3””. Esto evita presionar la tecla RUN, que podría borrar todo los datos conteni- 
dos en el ordenador. Naturalmente no se perdería todo; habría simplemente que car- 
gar de nuevo, pero esta vez se daría la orden GOTO 1. 

Una vez que tenemos el programa a salvo en una cinta, es el momento de probar- 
lo, comenzando con la orden GOTO 1. 


Adición de más preguntas 

Si hemos planteado inicialmente menos de 50 preguntas/respuestas, podemos aña- 
dir más, utilizando la instrucción BREAK para introducirnos en el programa y dando 
la instrucción directa: 


CLS: GOTO 420 
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A fin de recoger la subrutina de introducción donde la dejamos y comenzar de nuevo 
con el bucle N. También aquí se puede dar fin a la entrada, antes de completar los 50 
datos, mediante la instrucción: 


INPUT ““STOP”” 


como orden directa para comenzar de nuevo el test con la instrucción GOTO 1. El va- 
lor actual de n actualizará el valor máximo del número aleatorio para la variable “z””. 
Es prudente guardar todas las versiones en que se introduzcan más datos, antes qe 
comprobar el funcionamiento. De lo contrario, podrías arrepentirte. 
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Elipses 


El Spectrum (al igual que muchos otros microordenadores) carece de una función 
para la representación astronómica de elipses, pero puede paliarse este inconveniente 
con rutinas como las que aquí presentamos, utilizando las funciones trigonométricas 
SIN (seno) y COS (coseno), de que sí dispone. Estas rutinas son mucho más útiles que 
algunos ejemplos publicados, que emplean complejas fórmulas algebraicas. Además, 
si hacemos que las rutinas sean breves, aseguramos 1 una rápida ejecución del resulta- 
do, aligerando el proceso de trazado. 

Una elipse no es más que un círculo visto vesde un ángulo tal que percibimos su 
forma comprimida. Todas las rutinas se pueden hacer, con pocos cambios, de modo 
que el ordenador trace las elipses en el sentido de las agujas del reloj, o en sentido 
contrario, y que el eje mayor sea horizontal o vertical. 


Las rutinas de elipses 


Escribe y haz que el ordenador ejecute la primera rutina llamada Elipse (véase fi- 
gura 9.6). Observarás que, en la mayor parte de los casos, los nombres de las va- 
riables son suficientemente largos como para describir su función en el programa: 
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Figura producida por el programa “Elipse””. 


xaxis =xX (horizontal) coordenada de posición 

yaxis = y (vertical) coordenada de posición 

rad ' = valor máximo del radio de la elipse, llamado semieje mayor 
declive = entrada (INPUT) del ángulo de inclinación del círculo 
ángulo = factor de comprensión para producir una elipse 


La fórmula del ángulo variable contiene un pequeño factor de correción 0,1, su- 
mado a la variable ““declive””, que se introdujo para evitar que el programa se pare, 
cuando se introdujera un ángulo de 0% (con el cual, el círculo se mostraría de canto). 
El valor devuelto para 0* sería infinito, lo cual sobrepasa la capacidad numérica del 
Spectrum, comprendida entre 3 x 10-39 y 7 x 10%, La pequeña rutina llamada Valo- 
res del Ángulo de la Elipse muestra los valores que son devueltos por la fórmula lla- 
mada ángulo entre 0% y 90%, pasando por todos los grados. 

En realidad, el valor que devuelve para 0* es el de 0,1%, es decir, 1/10% ó 6' de arco 
y se suma 0,1 en toda la secuencia. Como la precisión de trazado del Spectrum no al- 
canza a diferenciar un ángulo tan pequeño, los resultados no se distinguen de los de 
los grados completos. Es evidente que, si se introdujera un ángulo de —0,1, el 
programa de la Elipse se perdería, ya que: 


—0,1+0,1 =00 


lives 


dsd y 


grada obli 


“incremento (Ll a 103" 
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Elipse 4 


Esta rutina, que es idéntica a la anterior, se utiliza para mostrar el trazado simul- 
táneo de cuatro elipses. También aquí el ángulo de las cuatro elipses y la frecuencia 
del trazado mediante variables se pueden seleccionar. 

La figura 9.7 muestra un ejemplo obtenido de la pantalla. Las elipses se han calcu- 
lado de manera que puedan trazarse en el sentido de las agujas del reloj, o en sentido 
contrario, cambiando las expresiones SIN y COS en cada una de las mitades de la ru- 
tina de trazado. Si la rutina comienza con la función SIN, el trazado comienza en la 
posición de las doce en punto; si la rutina empieza con la función COS, el trazado 
empieza en la posición de las tres en punto. Si la variable ángulo está en la primera 
mitad de la rutina de trazado, el eje mayor de la elipse es vertical, y si está en la se- 
gunda mitad, el eje mayor es horizontal. 


La línea 100 contiene el bucle FOR/NEXT empleado para trazar la elipse en la 
forma: 


FOR f = 0 TO PI*2 STEP 1/s*3 


donde 0 TO PI*2 produce una elipse completa. 
Si la expresión fuese: 


FOR f = PJ TO PI*3 STEP... 
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Figura 9.7. Ejemplos de elipses dibujadas de diferentes direcciones mediante el 
programa “Elipses 4”. 


La elipse total se trazará también, pero comenzando a 180% o en el lado opuesto, en 


la posición de las seis en punto o de las nueve en punto, respectivamente. Intenta 
comprobarlo, variando los valores en el bucle FOR/NEXT f. 


FORERO IA 
PRINT "Elipse 4  Declive="; 
O 

ml LET y=70 

tb LET yl=y*1.3 
dra LET yamyx*1,3 

sb LET y imyoe 

«4d LET y4=yx*, 3 


RE IRE E EI IE IE E E e 
INPUT "O"3CHR$ 1303" a 90%; 


CHRER$ 130ideclive 
60 PRINT declivejCHERS 130: FAF 


ER OS 

70 FRINT "s. horario", '"s. anti 
horario" 

73 PRINT "2segqge 10%,U"20 

77 PRINTF ES A 

79 FAFER 

30 LET angulo=1/SIN Ct. ld+decli 
vel /¿1B0*FITO 

CB RED ERRE A DE AA AA 


ec 5 o... ...0 068 
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90 INFUT "inc.(l a 10)",s8 
100 FOR $f:=0 TO PFlx*2£ STEF 1/8/3 
104 REN ed Ed 
103 REM dibuja 4 elipses 
106 REM re dt IA RE dE 
111 PLOT x1+SIN f%r", y1+005 xr / 
angulo 
a 112 PLOT x2+«C009 fer, y2+S IN 4xr/ 
a angulo 


| 113 PLOT x<3+SIN Ff*r/angul o, yt 

08 f*r 

l 114 ELOT o x4+008 £*r/angulo, y4+S 
0) IN 4er 


120 NEXT € STOP 
POOO- RED RR Ad Al Ad AA A 
9990 SAVE "El4" 


Elipse sólida 


Esta rutina utiliza la instrucción DRAW para producir una elipse rellena. En reali- 
dad, obtiene su resultado unas cuatro veces más rápidamente que la rutina elipses an- 
terior, en la cual los intervalos de STEP tienen la frecuencia suficiente como para 
producir un trazado continuo. Esto se debe a que sólo hay que calcular un cuadrante 
de la elipse y reflejar el resultado en los tres cuadrantes restantes, secuencialmente. Se 
han asignado nombres diferentes a las variables de esta rutina, pero los fundamentos 
son exactamente iguales que los anteriores. Podrás observar que, como solo es nece- 
sario calcular un cuadrante, el bucle FOR/NEXT queda: 


FOR f =0 TO PI/2 STEP .012 


Solo la cuarta parte de la longitud de ... 0 TO PI*2... utilizada anteriormente. Se ha 
fijado en 0.012 el intervalo de STEP, a fin de obtener la forma sólida requerida. Si la 
elipse no llena la pantalla del Spectrum, se puede probar con un número mayor. 

Las variables ““a”” y “*b”” son las coordenadas de posición **x”” e ““y”” de la elipse, 
la disminución necesaria del eje menor o vertical se determina mediante la variable 
“e”, Mediante la línea 130 se traza la parte superior izquierda de la elipse y, mediante 
la 140, la parte derecha. Las rutinas de dibujo que siguen a la orden (DRAW) y de 
trazado (PLOT) tienen la siguiente forma: 


DRAW 0, —b*2 


y dibujan una línea vertical de un valor dos veces mayor que el de **b”” en dirección 
de arriba a abajo, hasta completar la porción más baja de la elipse. La línea 200 
completa la rutina, trazando los ejes mayor (horizontal) y menor (vertical) de la elip- 
se, usando la orden OVER (ver figura 9.8). 
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Figura 9.8. Elipse sólida. 


O REM] EI A Md E Ó dE EE d 
10 PRINT "Elipse solida" 

11. EEN 30 de IE dd A dE A 
ZO INFUT "Declive "iz PFRINT O" 

Declive="i230HK8 130 

SO LET e=SIN (0, 1+2)/180*F1) 
40 LET x=2050/21 LET yu=170/%2 

DO REM. ARI IE EE dE 2 e 
100 FOR f£=0 TO FI/2 STEF 01% 
110 LET a=INT (SIN £x*y) 


120 LET b=INT (COS f*y*e) 
130 PLOT x—a,y+bi DRANWN O, “Dex 


140 PLOT x+a,y+tbi DEAN O, “bz 
1530 NEXT € 
199 EENM. 444 ee E E E E e 
00 OVER 13 FLOT O, ys DRAN 233, 
Or PLOT x,02 DRAW 0,173: OVER O 
210 STOP 
PIDO HER. AAA E 
90990 SAVE "Ovalo" 


Elipse inclinada 


$ 
_— 


A veces, necesitamos trazar una elipse cuyo eje mayor no sea horizontal ni verti- 
cal, sino que tenga posición intermedia. Esta última rutina, de extensión modesta, 


presenta un método para trazarla. 
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La figura 9.9 muestra una copia de la pantalla en la que se han dibujado elipses tí- 
picas mediante datos específicos. Los valores de giro e inclinación (rotación de la ima- 
gen) pueden ser de —90 a 90% en cada caso. 

La expresión final de la línea 90 (... /t + a/z) desempeña esta función. En ella, las 
variables **t”” (para inclinación) y **z”” (para rotación) dan los valores del SIN según 
los datos que se introdujeron. 

El intervalo de trazado (STEP 0,05) y el desplazamiento máximo horizontal (valor 
60 en las líneas 80 y 90) son fijos, pero se pueden alterar cuando sea necesario. 

En varios programas de este libro (anillos de Saturno, galaxia, órbita binaria de 
estrellas) hemos utilizado frecuentemente la rutina Elipse, a veces con modificaciones. 


Figura 9.9. Dos ejemplos de trazados de elipses con el programa ““Elipse inclinada”. 
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La expresión ““Elipse”? se usa comúnmente para describir la forma de las órbitas de 
los planetas y de cometas particulares y de superficies Ópticas (lentes y espejos). La 
Elipse es una figura de la familia de las cónicas, que incluye también al círculo, la pa- 
rábola y la hipérbola. 


FEEL ARI NARA A 
FRINT "Elipse inclinada" 
ERE A IAE A 


INFUT "declive "it,"inclina 


FRINT "declive "tiCHRs$s 1%0 
PRINT "inclinacion "iz iCHRES 


LET 2=1/SIN CC. Ll) /180* 1) 
LEFT t=l/SIN (0, 1+t)/180*F1]) 
E 
FOR n=0 TO Flxz2 STEF 05 
PLOT << OVER 11140,80 
LET a=zSIN nx*60 
buCOS n0/tra/z 
100 PLOT INT. (140+a), INTO (8O0+b) 
110 NEXT ni: 60 TO 20 
IN E 
9999 SAVE "Elip. inc." 


Elipses y ““Órbitas de Kepler”? 


Quizás debiéramos hacer una prudente observación sobre el empleo de la rutina 
Elipses para simular un planeta en su verdadera órbita elíptica alrededor del Sol —en 
la que el Sol puede que no ocupe el centro de la Elipse, sino uno de sus focos—. La 
segunda Ley de Kepler sobre el movimiento de los planetas dice que éstos“incremen- 
tan su velocidad cuando se acercan al Sol, y la disminuyen cuando se alejan de él. 
Quizás el programa de la Elipse no se justifique plenamente en este caso, pero en 
muchas ocasiones el efecto puede ser razonablemente convincente. Para una correcta 
simulación de la segunda Ley de Kepler, véase el programa “Órbitas de Kepler”, en 
el capítulo 5, y el ejemplo copiado de la pantalla. 


Trazado de un mapamundi 


Uno de los problemas que presenta la producción de un dibujo en la pantalla del 
televisor, a partir de un listado de un programa, consiste en tratar de comprender qué 
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instrucciones de gráficos pretendía utilizar el autor. El Spectrum tiene capacidad para 
imprimir más de 44.000 puntos (pixels) (256*175), por lo que no sería razonable crear 
una imagen que ocupase toda la pantalla definiendo las coordenadas “*x”” e ““y”” de 
todos los puntos a imprimir. En cambio, sí que es razonable crear una imagen más 
sencilla (de baja resolución), usando los gráficos de baja resolución del Spectrum des- 
de CHR$ 128 a CHR$ 143 inclusive. Esto da efectivamente a la pantalla una resolu- 
ción de 64*44, 2.816 en total. 

Afortunadamente para cada cuatro zonas de impresión contiguas, se puede definir 
una pantalla completa en 32%*22 espacios de caracter, 704 en total, lo cual es ya mane- 
jable. 


Codificación de los caracteres 


El modo más sencillo de producir tal imagen en la pantalla es listar 22 instruc- 
ciones PRINT, consecutivas, cada una de las cuales contenga 32 caracteres gráficos 
de baja resolución y hacer que el ordenador las ejecute. Pero esto, que resulta fácil 
para el programador, es casi imposible de entender por el usuario. Los caracteres han 
de codificarse de forma legible para que se puedan escribir mediante el teclado con se- 
guridad. 

El siguiente programa hace esto y utiliza un mapamundi como demostración de la 
representación en pantalla. Una vez que se han introducido los datos, mezclando nú- 
meros y letras mayúsculas y minúsculas, el programa produce automáticamente el di- 
bujo terminado por medio de un código intermedio. Su contemplación resulta bastan- 
te interesante. 


Figura 9.104. Códigos para el dibujo del mapamundi. Los números indican el 
número de cuadrados rellenos consecutivos (CHR$ 143). Las letras minúsculas in- 
dican el número de cuadrados en blanco (CHR$ 128). 
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pm 


Figura 9.10b. El ordenador convierte,los códigos y las letras minúsculas en mayús- 
culas, rellenando todas las posiciones de la pantalla. 


IA) 
AUS, 
1] 


mu 
TCY 


Ml. 
y 


za 
unn 


Figura 9.10c. Finalmente, el ordenador convierte las mayúsculas en caracteres grá- 
ficos de baja resolución. El dibujo se guarda en T$ para poder recuperarlo con rapi- 
dez en otra ocasión. 


El programa 


Q 


A 


pana 


y 
J 


A 


Escribe el programa mediante el teclado y haz que el ordenador lo ejecute. Luego 
introduce, una a una, las líneas de datos codificados de la figura 9.10a. Es fácil que el 
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programa tenga algún error encubierto, con lo que se presenta la ocasión de corregir 
alguna entrada. Una vez que se hayan completado las 20 líneas (se han omitido dos 
líneas para el título, etc.) el programa convierte los códigos en el mapamundi y repre- 
senta el resultado mediante la instrucción PRINT TS$. 


Cómo guardar los datos 


Este dibujo se almacena en la matriz dimensionada T$ preparada para quedar a 
salvo cuando se lo pida el programa. 
Los datos guardados pueden fundirse (MERGE) en otro programa, de este modo: 


LOAD “MAPAMUNDTI” DATA T$0 ENTER 


El dibujo se sigue denominando T$, así que cuida de que este nombre de cadena no se 
repita en el nuevo programa; y, por supuesto, el programa debe comenzar con la ins- 
trucción GOTO (número de línea) y no con la RUN. 

En teoría, este programa particular se puede desechar, puesto que cumplido su 
función, pero antes de hacerlo, pasa el programa completo a una cinta, mediante la 
instrucción GOTO 9990, para que lo puedas usar con tus propios dibujos codificados. 


Realización de tus propios dibujos codificados 


El procedimiento para producir estos dibujos codificados es aburrido, de modo 
que sólo vale la pena hacerlos si se van a imprimir. La página 92 del “Manual del 
Spectrum”” ofrece un listado de las 16 instrucciones de caracteres de gráficos de baja 
resolución que pueden ir desde la A a la P, comenzando en CHR$ 128 y terminando 
P en CHR$ 143. La “obra de arte”? se prepara ahora en papel cuadriculado, usando 
la página 102 del manual como guía y escogiendo los caracteres gráficos más apro- 
piados. Éstos se convierten en las letras A a P inclusives, que son las apropiadas. 

Como la mayor parte de un dibujo simple está generalmente en blanco o en negro 
(o en cualquier otro color), las largas cadenas de AAAAAA o PPPPPP se pueden 
comprimir en las líneas horizontales empleando minúsculas o números, respectiva- 
mente. Guíate por la figura 9.10a. Por ejemplo, la línea final. 


g Gx significa AAAAAAAGAAAMAMAAMAAMMMAA AA AAAAAAA|AA 
porque G es la séptima letra del alfabeto y x la 24.? 
Quienes tengan experiencia en programación pueden conseguir que el Spectrum 


haga la tarea de convertir los caracteres gráficos de baja resolución en códigos alfanu- 
méricos y así facilitar la tarea. 
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7 REL IR IE dE RR AEREA AA 
1O REM Mapa Mundi 

11 EEN AA A 
2d REM cargador de CODIGO 

E 

50 DIM es (LO, ad 

60 DIM 286 (20,30) 

7O PRINT "codif. MMeteclea lin 
Beal 

20 FOR mel 

90 FRINT 

100 INFLT He LINE es$tm) 

110 PRINT AT n,0es$ (mn) 

120 INFLT "correcto 6 or oni'z 
LIME q: 1 q$="n" THEN (60 TO 1 
¡01% 

120 NEXT 
E A 
j y REM auto recoditicacion 
E 
140 FRINMNTO FAFER 33AT 0, 01 "*Pagp 
a Mundi recoditficadoX* 


150 FOR n=1 TO 20: LET há" 
160 FOR +$=1 TO a 
170 1 e$(n, 0 >2HR$ 80 THEN (0 
10 220 

180 1 es (nn, FOZCHAKS 63 THEN (61) 
TO 250 

190 LET hé=xhéres (ina) 

SO0 MEXT 3 PRINTO FPAFER 6ih%: 
26 (n3=h8s NEXT ni 60 TO 310 
II 
FOR 341 TO CODE estni+)"76 
LET xB=x$+"AUi 60 TO <00 
A IS 
FOR x=1 TO CODE estr, +1 48 
260 LET x= "EU 60 TO 280 
DTO REL a A IA Ad 
230 NEXT 1 LET hsbc 

27 Eb TO 200 

BOO REP e e e I  I I  de A 


ros 
dl de 


==... o 


O 


6 == O 0. Qe. 


O 


O 
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Z1O0 PRINTO PAFER 63AT 0,01 "**bMa 
oa Mundi Ñ 
O BORDER Sí LET tgé="" 
Y FOR nel TO 0 

Sao FR f=l TO 

230 LET T=CODE 2% (miFf1+tÓO3 

200 FRINTO INE 4 PAFER SiCHRS 
tia LET é=térlHRS e 

70 NEXT fi NEXT on 

SO PERINT "Té=Mapa Mundia?s* par 
á grabar Té "g PAUSE O 

AGO EE RR RR RR A 
400 SAVE "Mundo" DATA TSO) 
403 BEEF 1,1 
INT RO: "rebobinarí dar pl 
ay para? "verificar"í VERIEY "ia 
ndo" DATA 1860) 

430 BEEP 1,13 PRINTO FLASH 13" 
er ticado": STOF 
PEDO REN 44RAARRRAARAAA RARA 
99890 SAVE "Codificad," 


Capítulo 10 
Sugerencias y consejos sobre el Spectrum 


Todos los programadores adquieren, a lo largo de su trabajo, ciertos conocimien- 
tos sobre los puntos fuertes y débiles del sistema de ordenador que utilizan, y a mí me 
ha ocurrido lo mismo con el Spectrum. 

Dada la naturaleza de la informática, algunos de estos hallazgos tienden a repetir- 
se por muchas personas diferentes, lo que alego en mi defensa ante todos aquellos que 
hayan leído alguno de los mios en otra parte, o los hayan conseguido por sí mismos. 


“ 


Tratamiento de errores en las entradas 


Generalmente se han omitido en este libro los tratamientos de errores encubiertos, 
por motivos de brevedad. Te ofrezco como guía las siguientes rutinas, y dejo que de- 
cidas en qué parte de tu programa las colocas. No olvides volver a numerar las líneas. 


1. Protección de entradas numéricas dentro de los límites superior 
e inferior para fechas y tiempos 


100 INPUT ““mes no”, mes 
110 IF INT mes<>mes OR mes<1 OR mes> 12 THEN 
GOTO 100 
120 INPUT ““día no”, día 
130 TF INT día<> día OR día< 1 OR díia> 31 THEN GOTO 120 
140 INPUT “hora (0 a 23)”, hora 
150 IF INT hora<> hora OR hora<0 OR hora>23 THEN GOTO 140 
160 INPUT “minutos (0 a 59)”, min 
170 IF INT min<>min OR min< 0 OR min> 59 THEN GOTO 160 
180 REM Fin de los INPUT'S 


La siguiente rutina es mucho mejor para efectuar entradas que no estén formadas 
sólo por números (línea 520) y estén dentro de unos límites (línea 550). 
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2. Protección de entradas numéricas entre los límites 
superior e inferior para fechas y tiempo 


200 LER a$ = “Año”: LET a = 2000: LET b = 1834; GOSUB 500: LET y =c 
210  LET a$ = “Mes”: LET a = 12: LET b = 1 GOSUB 500: LET m =c 
220  LET a$= “Día”: LET a = 31: GOSUB 500: LET d=c 

230  LETa$= “Hora”: LET a = 23: LET b = 0: GOSUB 500: LETh =c 
240 LET a$ = “Minuto”: LET a = 59: GOSUB 500: LET mi =c 

250  LET a$= “Segundo””: GOSUB 500: LETs=c 

260 REM Fin de los INPUT”S 

ZO eres 

500 INPUT (a$; ““(““;b;” a ““;a;””)””;), LINE b$ 

510  FORx=la LEN b$ 

520 IF CODE b$(x)< 48 OR CODE b$(x) > 57 THEN GOTO 600 

530 NEXT x 

540 LETc=VAL b$ 

550  IFc>aOR c<b THEN GOTO 600 

560 RETURN: REM INPUT comprobado 

600 PRINT = 0; FLASH 1; “Error””: PAUSE 100: GOTO 500 


Nota: Los valores de *“a”” y **b”” en la línea 200 sirven para cualesquiera años que se 
elijan. La línea 500 aparece en la pantalla (utilizando la entrada INPUT, del año 
como ejemplo) como: : 


Año (1834 a 2000) 


Programas para renumerar líneas 


Si te empeñas en utilizar la rutina más corta (y hasta las rutinas cortas tienen la 
manía de crecer), un programa para volver a numerar puede ahorrrarte mucho tiem- 
po y hacer que el listado final sea más presentable. En el comercio hay varias ver- 
siones preferiblemente en código de máquina y almacenadas encima de la RAM. 
Puede que valga la pena, también, elegir algún programa publicado en una revista, 
que contenga instrucciones de renumeración automática de GOTOs y GOSUBs. 

Si los GOTOs y GOSUBs condicionales como ... GOTO cielo ...o GOSUB K*10... 
no pueden renumerarse, se debe renumerar manualmente y de forma metódica. Por 
ejemplo, si tu programa contiene: 


... LET cielo = 1000 
... GOTO cielo 


1000 PRINT “Carta Estelar”” 
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modificamos la línea 1000, para leer 1000 PRINT “Carta Estelar”: REM GOTO cie- 
lo. Una vez que se ha numerado de nuevo el programa automáticamente, modifica- 
mos la variable ““cielo”” para el nuevo número de línea: 


...LET cielo = (número de la línea que contiene al final el comentario “REM GOTO 
cielo””) 


Cuando este comentario ““apuntador”” falta, el proceso puede ser penoso. 


Notas acerca de la impresora ZX 


Cuando se desarrolla un programa largo, puede ser extraordinariamente aburrido 
tener que buscar y comparar ““páginas”” del listado del programa. La obtención de 
una copia por medio de la impresora ZX puede ayudarte a conservar la salud. A me- 
nudo, no es necesario sacar un listado completo. Basta comparar lo que se tiene en 
pantalla con unas cuantas líneas impresas y las podemos obtener mediante las instruc- 
ciones... LLIST n (para número de línea) y BREAK 


Almacenamiento del listado obtenido con la impresora ZX 


Como el papel metalizado de la impresora ZX es muy sensible a las marcas de los 
dedos, se debe sostener siempre por los bordes. Si estás preparando un listado para 
enviarlo a una revista, te aconsejo que tengas la precaución de lavarte las manos in- 
mediatamente antes de tocar la superficie, pues, de no hacerlo, pueden ocurrir acci- 
dentes. 

Sobre una hoja de papel formato A4, se pueden colocar dos anchos del papel de la 
impresora ZX. Es preferible dejar un margen de 20 mm en las partes superior e infe- 
rior de la página y recortar el listado con una cuchilla, de manera que los bordes sean 
rectos. Asegúrate de cortar justo entre las lineas de la impresora. Coloca el listado ca- 
ra abajo sobre un papel de periódico viejo e impregna el reverso con un spray adhesi- 
vo. Después coloca cuidadosamente el listado sobre la hoja de papel formato A4, pre- 
sionando ligeramente. Utiliza una fotocopia del listado y guarda el original, sin 
doblarlo, por supuesto, en un sobre o carpeta duros, hasta que lo necesites. 

Un álbum barato de fotografías tamaño A4, con hojas de celofán por encima, es 
un sitio excelente para almacenar programas cortos, rutinas y gráficos, ya que así 
quedan a salvo de curiosos y de dedos peligrosos. Si no dispones de un sitio para col- 
gar los listados, puedes enrollarlos en el canuto que queda al terminarse el papel 
higiénico, cuyas dimensiones son suficientes para protegerlos. 

Si tienes que enviar un listado por correo, debes enrollarlo en un cilindro más fir- 
me que éste, como puede ser el que soporta el rollo del papel que utiliza la impreso- 
ra ZX. 
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ASTRONOMIA: EL UNIVERSO EN TU ORDENADOR es un libro 
dirigido al poseedor de un Spectrum que desee ampliar sus 
campos de interés utilizando el ordenador para introducirse 

y aprender astronomía. La potencia de cálculo y la capacidad 
gráfica del Spectrum permiten llevar a cabo con él complicados 
cálculos, desde seguimiento de satélites a determinación de las 
posiciones de estrellas y planetas en cualquier momento, hasta 
dibujos de mapas estelares. Los programas tienen rigor científico 
y pueden ser utilizados con fiabilidad por cualquier astrónomo ' 
aficionado. No son necesarios conocimientos de programación 

para poder manejar el libro. El autor, astrónomo y editor de una 

revista sobre “Astro-informática”, aprovecha cada nuevo capítulo, 

tema O programa, para ir explicando los temas básicos de la 
astronomía planetaria y estelar, al tiempo que comenta cómo 
utilizar de forma óptima la potencia del ordenador para tratarlos. 
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